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.SS, POUR 
VISU PILE 


BANNIERE 
ECRAN 


ON. .GOSUB 
TURBO 


VISU IMAGES 
:  DIGITALISEES 


DESASSENM- 
BLEUR 8086 


EDITORIAL 


Alors comme ça, j'ai 
appris que l'on voulait 
réformer l'orthographe? 
Que notre langue soit 
compliquée, certes, je 
l'admet. Mais peut-on 
faire table rase de 
tous les éléments 
linguistiques marquant 
notre langue? Non! Si 
les enfants ont des 
difficultés en 
orthographe, il faut 
peut-être en rechercher la cause ailleurs qu'en 
argumentant sur la seule complexité grammaticale. 
Parmis Les enfants (et Les autres) se gavant 
d'émissions serinant à longueur de journée des 
japoniaiseries insipides, des jeux ressemblant de 
plus en plus à de très longs spots publicitaires, 
combien Lisent-ils de Livres, de journaux? Pas 
beaucoup, je pense... L'argument comme quoi Les 
distinctions sociales seront atténuées dès que Le 
principe d'une grammaire simplifiée sera admis est 
inconsistant. Tenez, je vous écris la prochaine 
phase en grammaire simplifiée. Si un tel pojé de 
sinplifikasion de l'ortograf abouti, nou riskon de 
voua aparètr Une nouvèl form de discriminasion entr 
seu écrivan comm Lé ansien et Lé modern masakran lé 
règl: j'arrête Le massacre! 


Dans Le cas des homophones, ils ne peuvent souvent 
être identifiés, indépendemment de leur contexte, 
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que grâce à Leur orthographe. 


Ceux-là même prêchant cette simplification, ont-ils 
vérifié l'efficacité des méthodes pédagogiques 
actuellement en place. Peut-être est-ce de ce coté 
qu'il faudrait faire un effort. Prenons Le cas du 
plan INFORMATIQUE POUR TOUS, destiné à équiper 
toutes Les écoles en micro-ordinateurs: ces 
machines devaient permettre aux élèves de se servir 
d'outils conviviaux et pédagogiques pour faciliter 
leur apprentissage dan,s de nombreuses disciplines, 
dont l'orthographe. Si La démarche est louable, son 
efficacité semble complètement compromise. En 
effet, voici un secteur où l'alliance CD-ROM et 
micro-ordinateur pouvait faire des merveilles. Dans 
La pratique, on a surtout doré La pillule à Mr 
THOMSON qui a pu fourguer son parc de machines 
devenu complètement obsolète Le temps que Les 
utilisateurs Le prennent en main. 

Personnellement, je ne crois pas à l'efficacité 
d'un décret instaurant de nouvelles règles 
grammaticales. Les règles et Le langage évoluent 
indépendemment de notre volonté. Ceci est affaire 
de culture et l'influence des médias et La 
technologie nous modèlent davantage que Les 
décisions arbitraires d'un petit comité. Si on 
déplore La pratique du franglais (intégration de 
mots d'origine anglo-saxonne), consolons-nous en 
constatant que ce phénomène est général: russ- 
glais, ital-français... 
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[| 
PARAMETRES ET POINTEURS DE PILE l 


par Bill Beers 
adaptation Marc PETREMANN 


LISTING: DOTS.FTH 

ECHO OFF 

\ À more informative stack display. By Bill Beers. 

\ Extracted for the East Coast Forth BBS by Steve Pal incsar. 


\ For Laxen & Perry F83 for IBM PC and compatibles. 
\ Adapted to TURBO-Forth by Marc PETREMANN, 
\ ASSOCIATION JEDI (FRANCE) 
\ Adapté à TURBO-Forth par Marc PETREMANN 
\ Diffusion by ASSOCIATION JEDI (€ diffusé par) 
17, rue de La Lancette 
F-75012 PARIS - France 
Phone (tél): (33) 1-43409653 
mailbox (serveur): 3615 SAM*JEDI 
(1200/75 bauds E71) from FRANCE only 
(33) 36.43.15.15 SAM*JEDI for foreigner 
--- 32 simultaneous access. --- 


CCC 


INCLUDE POLYGLOT \ Load the multi-lingual manager 
\ charge Le gestionnaire poly- linguistique 


ENGLISH ?\ ECHO ON 

\ The user word is ".SS". Use instead of !.S'. 

\ Gives you a display (in vertical format) of what îs on the 
\ stack in Decimal, Binary and Hex notation, and the 

\ addresses of the top and bottom of the stack. 

ECHO OFF 

FRENCH ?\ ECHO ON 

\ Le mot clé utilisé est ",SS". Utilisé comme !.S'. 

\ Affiche (en format vertical) Le contenu de La pile dans 

\ Les bases numériques décimales, hexadécimales et binaires, 
\ ainsi que Les adresses du sommet et La base de La pile. 

ECHO OFF 


: BINARY 2 BASE ! ; HEX 
: FMT-BIT # # # # 2D HOLD # # # # BL HOLD ; 


: BITS S>D <# FMT-BIT FMT-BIT #> TYPE ; 
: .CNT Ç n--- ) DECIMAL 3 .R ." |" ; 
: TOPSTK € ---) 

CR 


ENGLISH ?\ .U mm Top of Stack :!! SPQ 2+ U. 


ENGLISH ?\ QU mem meme 


FRENCH  ?\ .# mm Sommet de La pile :" SP® 2+ U. 
FRENCH ?\ ." 1 
GERMAN ?\ .!" =mmp Stack oben :!! SPa 2+ U. 
GERMAN 71 4" mme mm! 
CR ; 

: BOTSTK € ---) 
ENGLISH ?\ ." = Bottom of Stack :" SPO à U. 
ENGLISH ?\ ." L 
FRENCH ?\ ." = Bas de La pile :" SPO à U. 
FRENCH 74 "mn 
GERMAN ?\ ." LL Stack unter :! SPO à U. 
GERMAN 71 mme 
CR ; 

1 <,8> Cn--- )>R Ra DECIMAL 5 U.R ." dec|" 


hex R9 5 U.R ." hex|" octal ra 7 ur ." oct|" 
BINARY R> BITS ; 


: .SS BASE Q R  DEPTH ?DUP 
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i pick <.s> cr key? ?leave 
Loop 
R> BASE ! 
ELSE R> BASE ! 
ENGLISH 2\ CR .1! <<< Stack Empty >>>" 
FRENCH ?\ CR ." <<< Pile Vide >>>! 
GERMAN ?\ CR ." <<< Leere Stack >>>" 
THEN : 
decimal " 


BOTSTK 


FORTH 


BANNIERE ECRAN 


Par Tom ZIMMER 
adaptation Marc PETREMANN 


LISTING: BANNER.FTH 
ECHO OFF 
\ BANNER.SEQ Compliments of F83X « 


\ mod to sequential by Tom Zimmer 

\ Adapted for TURBO-Forth by Marc PETREMANN 

\ Adapté à TURBO-Forth par Marc PETREMANN 

\ Diffusion by ASSOCIATION JEDI ( diffusé par) 

17, rue de La Lancette 

F-75012 PARIS - France 

tel: (33) 1-43409653 

mailbox (serveur): 3615 SAM*JEDI 
(1200/75 bauds E71) from FRANCE 

\ (33) 36.43.15.15 SAM*JEDI for foreigner 


CCC 


INCLUDE POLYGLOT \ Multi-Lingual module for TURBO-Forth 
\ Chargement utilitaire multi-langue 
CREATE CHAR-MATRIX \ build the character generator 
\ construit Le génératreur de caractères 


HEX € ) 00 C, 00 C, 00 €, 00 €, 00 €, 00 €, 00 C, 00 €, 
(1) 20 C, 20 C, 20 C, 20 C, 20 C, 00 C, 20 C, 00 C, 
€") 50 €, 50 C, 50 C, 00 C, 00 C, 00 C, 00 C, 00 €, 
C#) 50 C, 50 C, F8 C, 50 C, F8 C, 50 C, 50 C, 00 C, 
($) 20 C, 78C, AOC, 70 C, 28 C, FO C, 20 C, O0 C, 
C%) CO C, CBC, 10C, 20 C, 40 C, 98 C, 18 C, 00 C, 
( &) 40 C, AOC, AO C, 40 C, AB C, 90 C, 68 C, 00 C, 
(1330, 30 C, 10 C, 20 C, 00 C, 00 C, 00 C, CO C, 
( O 20 C, 40 C, 80 C, 80 C, 80 C, 40 C, 20 C, 00 C, 
( )20€, 100, 08 C, 08 c, 08 c, 10 C, 20 C, O0 C, 
(*) 20C, a8 C, 70 C, 20 C, 70 C, aB C, 20 C, 00 C, 
(+) 00 €, 20 C, 20 C, 70 C, 20 C, 20 C, 00 C, O0 C, 
(,)00C, 00 C, 00 €, 30 C, 30 C, 10C, 20 C, 00 C, 
(-) 00 C, 00 €, 00 C, 70 C, 00 C, 00 C, 00 C, 00 C, 
(.)00 C, 00 C, 00 C, 00 C, 00 C, 30 C, 30 C, 00 C, 
(/) 00 €, 08 C, 10 C, 20 C, 40 C, 80 C, 00 C, 00 C, 
(0) 70 C, 88 C, 98 C, ABC, CBC, 88 C, 70 C, 00 C, 
(1200, 60C, 20 C, 20 C, 20C, 20 C, 70 C, 00 C, 
(2) 70C, 88 C, 08 C, 30 C, 40 C, 80 C, F8 C, 00 C, 
(3) F8C, 10C, 20C, 30C, 08C, 88 C, 70C, 00C, 
C4) 100, 30 C, 50 C, 90 C, F8C, 10C, 10 C, OC, 
(5) F8C, 80 C, FO C, 08 C, 08 C, 88 C, 70 C, 00 C, 
(6) 38C, 40 C, 80 C, FOC, 88C, 88 C, 70 C, 00 C, 
(7)F8C, 08C, 10C, 20C, 40 C, 40 C, 40 €, 00 C, 
(8) 700, 8,88, 70C, 88C, 88 C, 70C, O0 C, 
(9) 70 C, 88 C, 88 C, 78 C, 08 C, 10 C, EO C, O0 C, 
(1) 00 C, 60 C, 60 C, 00 €, 60 C, 60 C, 00 C, O0 C, 
(:)00C, 60€, 60€, 00 C, 60 C, 60 C, 40 C, OO CO 
( <) 10C, 20 C, 40 C, 80 C, 40 C, 20 C, 10 C, 00 €, 
(=) 00 C, 00 C, F8C, 00 C, F8C, 00 C, 00 C, 00 C, 


È 


( a) 70 C, 88 C, A8 C, B8 C, BO C, 80 C, 78 C, 00 C, ENGLISH ?\ “ FROM F83X" BANNER ; 
( A) 20 C, 70 C, 88 C, 88 C, F8 C, 88 C, 88 C, 00 C, FRENCH  ?\ M PROGRAMME" BANNER 
( B) FO C, 88 C, 88 C, FO C, 88 C, 88 C, F0 C, 00 C, FRENCH  ?\ " BANNIERE"! BANNER 
(€ C) 70 C, 88 C, 80 C, 80 C, 80 C, 88 C, 70 €, O0 €, FRENCH  ?\ "DE F83x" BANNER ; 
CD) F0 C, 48 C, 48 C, 48 C, 48 C, 48 C, FO C, 00 C, GERMAN  ?\  BANNER" BANNER 
CE) F8 C, 80 C, 80 C, FO C, 80 C, 80 C, F8 C, 00 €, GERMAN  ?\ "M PROGRAM! BANNER 
CF) F8 C, 80 C, 80 C, F0 C, 80 C, 80 C, 80 C, 00 C, GERMAN  ?\ W VON F83X' BANNER ; 
( G) 78 C, 80 C, 80 C, 80 C, 98 C, 88 C, 78 C, 00 C, DEMO 
( H) 88 C, 88 C, 88 C, F8 C, 88 C, 88 C, 88 C, 00 C, EH 
(1) 70 C, 20 C, 20 C, 20 C, 20 C, 20 C, 70 C, 00 €, 
(€ J) 08 C, 08 C, 08 C, 08 C, 08 C, 88 C, 78 C, 00 C, r —_ 
( K) 88 C, 90 C, AO C, CO C, AO C, 90 C, 88 C, 00 €, 
{€ L) 80 C, 80 C, 80 C, 80 C, 80 C, 80 C, F8 C, O0 C, | MODE D'EMPLOI DU RESEAU BTX ] 
( M) 88 C, D8 C, AB C, AB C, 88 C, 88 C, 88 C, 00 C, | I 
( N) 88 C, 88 C, C8 C, AB C, 98 C, 88 C, 88 C, 00 C, 
(0) 70 C, 88 C, 88 C, 88 C, 88 C, 88 C, 70 C, 00 €, par Marc PETREMANN 
CP) FO C, 88 C, 88 C, FO C, 80 C, 80 C, 80 C, 00 €, 
( Q) 70 C, 88 C, 88 C, 88 C, A8 C, 90 C, 68 C, 00 C, Ce sujet avait déjà fait L'objet d'un précédent article. 
C R) FO C, 88 C, 88 C, F0 C, AO C, 90 C, 88 C, 00 C, Dans Le présent propos, des précisions sont apportées 
(€ S) 70 C, 88 C, 80 C, 70 C, 08 C, 88 C, 70 C, C0 C, concernant certaines manipulations. 
CT) F8 C, 20 C, 20 C, 20 C, 20 C, 20 C, 20 C, 00 €, 
( U) 88 C, 88 C, 88 C, 88 C, 88 C, 88 C, 70 C, 00 C, Pour arriver à La page d'accueil de BTX, tout d'abord se 
( V) 88 C, 88 C, 88 C, 88 C, 88 C, 50 C, 20 C, O0 C, connecter avec son Minitel à La passerelle permettant 
( W) 88 C, 88 C, 88 C, A8 C, A8 C, D8 C, 88 C, C0 C, d'arriver sur Le réseau allemand. Composer Le 3622 ou 
C X) 88 C, 88 C, 50 C, 20 C, 50 C, 88 C, 88 C, O0 €, 36224949 selon La zone d'appel; tarif 1,83 F/mn. 
( Y) 88 C, 88 C, 50 C, 20 C, 20 C, 20 C, 20 C, 00 €, 
(CZ) F8 C, 08 C, 10 C, 20 C, 40 C, 80 C, F8 C, 00 €, Un message s'affiche alors, indiquant que La connexion 
C [) 78 C, 40 C, 40 C, 40 C, 40 C, 40 C, 78 C, 00 €, est en cours. Ù 
€ \) 00 C, 80 C, 40 C, 20 C, 10 C, 08 C, 00 C, 00 C, 
€ J) FOC, 10 C, 10 C, 10 C, 10 C, 10 C, FO C, 00 €, Lorsque BTX a accepté l'appel, tapez "#! pour afficher 
(€ ©) 00 C, 00 €, 20 C, 50 C, 88 C, 00 C, 00 C, O0 €, Le sommaire général de BTX en allemand, où "*1302#1 pour 
(€ _) 00 C, 00 C, 00 C, 00 C, 00 C, 00 C, 00 C, F8 C, afficher Le sommaire en francais. 

DECIMAL Le choix 11 donne La liste des fournisseurs par ordre 

alphabétique,le choix 12 par mots-clés ou Le choix 13 
CREATE BITS (--- al ) par thème. : 


128 C, 64 C, 32C, 16 C, 8C,4C,2C,10C, 
Pour Le moment, seules Les pages gratuites sont 
: BIT (CNT --- F1) accessibles. 
BITS + Ca AND O= 1+ ; 
On peut aussi appeler directement La page d'accueil du 


: LOUC Cc-- ) service souhaité. Exemple: pour appeler L'annuaire 
DUP 96 128 WITHIN 32 AND - ; électronique des abonnés au téléphone en RFA, tapez le 
N de la page d'accueil du service entouré de * et # 
VARIABLE OUT-CHAR ASCII # OUT-CHAR ! soit *1188# ou Le choix 83 de La page *1302#. 
: OUTCI € c ---) 
\ modify the character for displaying the banner On peut également arriver directement sur une page à 
\ modifie le caractère d'affichage de La bannière l'intérieur d'un service. 
OUT-CHAR ! ; 
: BANNER Ç an -- ) 
BOUNDS 8 0 
DO CR 2DUP 


?D0 I Ca 127 AND LC>UC 32 - 
8* CHAR-MATRIX + J + Cd 


70 
DO DUP I BIT 
IF OUT-CHAR à 
ELSE BL 
THEN EMIT 
LOOP DROP 
LOOP 
LOOP  2DROP ; 
: DEMO € --- ) \ print demonstration message 
\ affiche un message de démonstration 
219 OUTC! \ use the ASCII character number 219 
\ utilise Le caractère de code ASCII 219 
DARK CR 
ENGLISH ?\ " WELCOME" BANNER 
ENGLISH ?\ " TO TF83" BANNER Pour faciliter l'interrogation de BTX à partir d'un 
FRENCH ?\ " BIENVENUE" BANNER minitel, La passerelle BTX prend en compte l'utilisation 
FRENCH ?\ ! SUR TF83" BANNER de certaines touches de fonction de notre minitel: 
GERMAN ?\  WILKOMMEN'' BANNER - CONNEXION/FIN: met fin à La connexion 
GERMAN ?\ " UBER TF83" BANNER - SUITE: page suivante 
2000 MS - ENVOI: envoie un formulaire rempli au serveur (par 
DARK CR contre, Le choix dans un menu BTX ne nécessite pas 
ENGLISH ?\ " BANNER"! BANNER L'appui sur La touche ENVOI comme dans Télétel; il 
ENGLISH ?\ 1! PROGRAM" BANNER suffit de taper sur Le n°). 
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- REPETITION: réaffiche l'écran... 
- Les autres touches de fonction du Minitel sont 


inactives. 


Les touches de fonction dans BTX sont: 

*N de page#: appel d'une page 

*nom du serveur#: appel d'un service 

*#: retour page précédente 

#: page suivante 

**: correction d'une donnée 

*00#: répétition d'une page 

*05#: affichage du contenu du champ de données... 

*09#:appel de La version courante d'une page 

*03#:retour au sommaire précédemment affiché 

*55#:retour à La page précédemment affichée du dernier 
fournisseur ou programme 

*1#:guide 

*O#:pour revenir au sommaire général 

de BTX 

*9#:connexion/fin 
Quelques services; pour Le moment, seules Les pages 
gratuites sont accessibles depuis La France. 
A titre d'exemple, voici quelques services du sommaire 
général de BTX. Pour accéder à Leur page d'accueil, tapez: 

- *1188#: l'annuaire électronique des abonnés au téléphone 
en RFA 

- *20000#:Deutsche Bundespost (poste) 

- *25800#:Deutsche Bundesbahn (chemins de fer) 

- *30000#:Quelle (télé-achat) 

- *41411#:Croix Rouge (action sociale) 

- *50000#:Lufthansa(compagnie aérienne) 

- *60000#:Deutsche Bank (banque)... 


Contrairement au réseau TELETEL, Les services ne sont pas 
répartis sur des serveurs à taxation par paliers 
d'utilisation (3613, 3614, 3615, etc...) mais pratiquent la 
taxation directe. Pour exemple, certains serveurs vous 
donnent accès au téléchargement de données. Ce 
téléchargement devient effectif après affichage du prix et 
envoi d'impulsions de taxation par Le serveur. Or, la 
passerelle TELETEL/BTX filtrant ces impulsions, il ne vous 
est pas possible à ce jour de disposer de ces services. 


De même, La passerelle TELETEL/BTX ne donne accès aux 
opérateurs appelant depuis un terminal relié à BTX aux seuls 
services accessibles en 3613 et 3614. 


Une extension de l'accès aux services TELETEL étrangers est 
prévue sur Les réseaux TELETEL italiens et belges. 


| STRUCTURE OUT -ENDOUT 


par Yves SURREL 


LISTING: INOUT .FTH 


\ PTIT LILITILLILISILLLLLILLLLLLLLELLÉELEEEEE EEE LES LE EE SE) 


\ STRUCTURE OUT ... ENDOUT 
STRUCTURE IN ... ENDIN 


\ CTTTTETLLLLILISIILLLLLILILLSALSLLLS SELLES ESS SE LEE ELLE LEE SE ES 
\ Ÿ. SURREL juin 1989 
À =--m-se OUT ... ENDOUT ---------------- 


\ Suivi de PERFORM, analogue à ON ... GOSUB du BASIC. 
\ Utilisation OUT (S n -- ) ] MOTO MOT1 MOT2 ... MOTP 
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\ DEFAUT ENDOUT PERFORM 

\ Le (nt1)ième mot suivant OUT est éxécuté. 

\ Si nest supérieur à p, 

\ DEFAUT est éxécuté. n négatif est équivalent à n=0. 
\ Peut dans certains cas remplacer avec une écriture 
\ beaucoup plus simple une suite de OF ... ENDOF dans 


\ une structure CASE ... ENDCASE. 
\ Analogue à CASE: maïs économise un identificateur (une 
\ sorte de CASE: en ligne). 
\ La structure ($ n -- add ) OUT ... ENDOUT seule 
\ délivre l'adresse de La (nri)ième cellule de deux 
\ octets suivant OUT. La compilation est arrêtée après 
\ OUT pour permettre de remplir La table de données 
\ entre OUT et ENDOUT avec autre chose que des CFAs en 
\ utilisant La virgule: 
\ 2OUT5 ,8,-1, 3 , ENDOUT 
\ empite -1 (Les données sont numérotées à partir de 0). 
: OUTA (S n add2 add1 -- max{[min£add2,add1+2n] ,add1] ) 
ROT 2* OVER + (S add2 add1 add ) 
MAX MIN : 
: OUT (S -- add ) K 
\ add est l'adresse du début de La table d'éxécution 
COMPILE BRANCH 
\ sauter inconditionnellement par dessus cette table 
?2>MARK [COMPILE] [ ; IMMEDIATE 
: ENDOUT (S add -- ) 
DUP -ROT ?>RESOLVE E 
HERE 2- [COMPILE] LITERAL 
2+ [COMPILE] LITERAL 
COMPILE OUTa ] ; IMMEDIATE 
Naseemasnsamsensnenesse IN ... ENDIN --------------- 
\ Recherche une valeur empilée dans une table de n 
\ valeurs numérotées de 0 à n. Retourne n en cas d'échec 
\ de La recherche. 
\ Une sorte de ASSOCIATIVE: en ligne. 
\ Remarque importante: IN arrête Le mode compilation 
\ Exemples: 
\ 5: EX (Sn -- index ) IN 3, 5 , -12 , ENDIN ; 
\ 3 EX empilera 0 
\ 5 EX U 1 
\ 6 EX " 3 
: INQ (S n add ent ) \ cf ASSOCIATIVE: 
>R O -ROT R> 0 €S O0 n add cent 0 }) 
DO €S i n add ) 
2DUP à = 
IF 
LEAVE 
THEN 
2+ ROT 1+ -ROT 
LOOP 
2DROP : 


: IN (CS -- add ) 
\ add est l'adresse du début de la table de valeurs 
[COMPILE] OUT ; IMMEDIATE 


: ENDIN (S add -- ) 


DUP -ROT 


COMPILE I! 


also HIDDEN 


: .PFA  (S 
DUP CFA 
BEGIN 

#OUT à 
IF .PO 
DUP à 
IN ] 


MRMPRMMMP 
DO EE © oO 


ENDIN 
OUT ] 


PMIOMMMMRMAP 
_— — 
ED OO Er Oo 


ENDOUT 
DUP 0= 
UNTIL DRO 


" HELLO .PF 


LISTING: 


: Adaptable: 
.VGLKSForth ATARI: 
‘Diffusion: 3615 SAM*JEDI 


?>RESOLVE 


N9 ] ; IMMED 


ENDOUT 


also 


CFA -- ) 
1 >BODY 


50 > 
S THEN 


) CLIT) 

) BRANCH 

) C+LOOP) 
) COMPILE 
) CABORT!') 
) UNNEST 

) (?D0) 


) .INLINE 
) .BRANCH 
) -BRANCH 
) .QUOTE 
) STRING 
) -UNNEST 
) -BRANCH 
) .WORD 
PERFORM 
STOP? OR 
P ; 


A 


2+ DUP [COMPILE] LITERAL 
HÈRE 4 - SWAP - 2/ [COMPILE] LITERAL 


IATE 


\ Réécriture de .PFA du décompilateur avec IN ... ENDIN 
\ et OUT ... 
\ Plus élégant que ASSOCIATIVE: et CASE:, à mon avis. 


\ Décompile une définition : 


.POS 


) ?BRANCH 
) (LOOP) 
) (DO) 

) €.) 

) (;CODE) 
) €") 

) (;USES) 


.BRANCH 
.BRANCH 
.BRANCH 

.STRING 
.(; CODE) 
. STRING 

.FINISH 


RCE CA VAUAS 


VISUALISATION D'IMAGES DIGITALISEES [1 


Par Yves SURREL 


_F83 Laxen et Perry CP/M et MS-DOS, 


DIGIT.FTH 


\ Ce programme permet l'affichage de fichiers d'images 

\ digitalisées au format .GRS délivrés par Les routines 

\ DGILIB (carte DGI1), mais il doit être adaptable 

\ facilement à d'autres formats. 

\ Ces fichiers sont constitués de 255*256 octets contigus 
\ sans en-tête. Chaque octet contient Le niveau de gris 

\ d'un pixel sur 6 bits, Le septième bit (40h) étant à 1. 
\ Les pixels se suivent de gauche à droite et de haut en bas 
\ (le premier octet du fichier correspond donc au coin 

\ supérieur gauche de l'image). 

\ L'affichage EGA ne fonctionnera bien entendu correctement 
\ que si l'on dispose de La carte correspondante. 

\ BUG connu: l'usage de CHARGE entraîne à La sortie de FORTH 


\ L'apparition d'un message d'erreur: "Erreur 
\ d'allocation mémoire. Impossible de charger 

\ COMMAND.COM. Arrêt du système" avec RESET obligatoire. 
\ Notre secrétaire pourra sans doute remédier à ceci... 


ECHO OFF 
FORTH DEFINITIONS DECIMAL 
VARIABLE CARTE \ 1 = EGA 2 = CGA 
VARIABLE Îer_OCTET 
VARIABLE #OCTETS 
\ Nombre d'octets à sauter entre 2 Lignes 
VARIABLE #LIGNES 
VARIABLE OPERATION_LOGIQUE 
CREATE TABLE_SEUILS 64 ALLOT 
\ Correspondance niveaux de gris => couleur 
VARIABLE POIGNEE 
40 STRING FILE$ 


HEX 
VARIABLE SEG.IMAGE 
: CHARGE 
EXT$ PAD PLACE 
M ,.GRS" EXTS$ $! 
OPEN POIGNEE ! 
SEG.IMAGE @ O FFO0 POIGNEE à (GET) ?DOS-ERR DROP 
CLOSE HERE COUNT FILES$ $! PAD COUNT EXT$ $! ; 


5: SAUVE (S <nom fichier [.GRS]> -- ) 
?OPEN DRV >R 
EXT$ PAD PLACE "! ,GRS" EXTS$ $! 
\ Extension .GRS par défaut 
FILENAME PAD COUNT EXT$ $! 
DUP 1+ Ca ASCII : = 
\ Spécification de drive? 


IF 
DUP Ca ASCII A - SELECT 
THEN 
FF00. FREE D> ABORT" Espace insuffisant sur disque!" 
O (CREATE) ?DOS-ERR \ €S hndl ) 
>R 


SEG.IMAGE @ O FFOO RQ (PUT) \ Ecriture 8400h octets 
?DOS-ERR DROP 
R> (CLOSE) R> SELECT ; 


HEX n 


DEFER (AFFICHE) 


CODE (AFFICHE.EGA) CS -- ) 


STI 
IP PUSH 
RP PUSH 
3CE # DX MOV 
F01 # AX MOV 
AX DX OUT 
SI SI XOR 
ler_OCTET #) DI MOV \ Octet écran dans DI 
80 # DL MOV \ er pixel 1000 0000 
A000 # BP MOV \ RAM video... 
BP ES MOV \ ... dans ES 
#LIGNES #) CX MOV 
SEG.IMAGE #) AX MOV \ Segment IMAGE 
AX DS MOV HERE 
( DO ) \ Pour chaque ligne FAIRE... 
CX PUSH 
\ Sauvegarder compteur de boucte externe 
100 
DO \ Pour chaque pixel FAIRE... 


CX PUSH 

\ Sauvegarder compteur de boucle interne 
AL BYTE LODS 

\ Niveau de gris OR 40h dans AL 

3F # AX AND 

AX BX MOV \ Niveau de gris dans BX 
CS: TABLE SEUILS Ç[BX] CL MOV 

\ Couleur dans CL 


\ Affiche du pixel DL de l'octet DI 
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DX PUSH \ Sauvegarder position pixel 
8 # AL MOV 

DL AH MOV \ Position pixel dans AH 
3CE # DX MOV 

AX DX OUT 

AL AL XOR 

CL AH MOV \ Couleur dans AH 

AX DX OUT 

CS: OPERATION LOGIQUE #) AX MOV 

AL AH MOV 

AH SHL 

AH SHL 

Ah SHL 

3 # AL MOV 

AX DX OUT 

ES: O IDI} AL MOV 

ES: AL O [DI] MOV 

DX POP 


\ Fin affichage pixel 


DL SHR \ Pixel suivant 
0 # DL CMP \ Est-ce Le dernier? 
0= 
1F \ Si oui 
DI INC \ incrémenter l'octet écran 
80 # DL MOV 
\ et remettre Le compteur pixel sur 1000 0000 
THEN 


CX POP \ Dépiler compteur de boucle interne 
LOOP \ Passer au pixel suivant 
CS: #OCTETS 
#) DI ADD \ Après 256 pixels, sauter n octets écran 
80 # DL MOV \ Pixel 1000 0000 


CX POP \ Dépiler compteur de boucle externe 
LOOP \ Passer à la ligne suivante 
3CE # DX MOV 
1 # AX MOV 
AX DX OUT 


\ Rétablissement de l'affichage des caractères 


FFO8 # AX MOV 
AX DX OUT 

3 # AX MOV 

AX DX OUT 


\ Sortie 


CS AX MOV 

AX DS MOV 

RP POP 

IP POP 

CLI 

NEXT 
END-CODE 
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CODE (AFFICHE.CGA) 


4. 


EN 


90 


STI 
IP PUSH 
8 # DI MOV \ Octet écran dans DI 
0 # SI MOV \ Îer octet image 
B800 # AX MOV \ Segment vidéo 
AX ES MOV \ ... dans ES 
SEG.IMAGE #) AX MOV 
AX DS MOV 
c8 DO \ 100 lignes paires: 0, 2, 
CX PUSH \ puis 100 impaires. 
20 DO \ 32 mots 
CX PUSH \ soit 64 octets ou 64x4-256 pixels 
8 DO \ Pour chaque mot de 8 pixels 
AL LODS \ Charger Le niveau de gris 
3F # AX AND \ AND 3F 
AX BX MOV \ Niveau de gris dans BX 
CS: TABLE _SEUILS [BX] AL MOV \ Couleur dans AL 
3 # AL AND \ Modulo 4 
DX SHL \ décater à gauche le pixel précédent 
DX SHL \ (couleur sur 2 bits...) 
AL DX OR \ Mettre pixel dans DX 
LOOP \ pixel suivant 
DX AX MOV 
AL AH XCHG \ Octet fort à gauche 
AX STOS \ Afficher Les 8 pixels 
CX POP 
LOOP 
10 # DI ADD \ Saut de ligne écran 
100 # SI ADD \ Saut de ligne image 


C800 # SI CMP 
\ Si Les 100 lignes paires sont affichées 
0= IF 
100 # SI MOV 
\ Se positionner sur Les Lignes impaires 
1FB8 # DI MOV \ et La 2ème ligne écran 
THEN 
CX POP 
LOOP 
CS AX MOV 
AX DS MOV 
IP POP 
CLI 
NEXT de 
D-CODE 


00 SEG.IMAGE ! 


: EGA1 


['] CAFFICHE.EGA) IS (AFFICHE) 
1 CARTE ! 

18 1ER_OCTET ! 

30 #OCTETS ! 

FF LIGNES ! ; 


: EGA2 


['] CAFFICHE.EGA) IS (AFFICHE) 
2 CARTE ! 

4 er _OCTET ! 

8 #OCTETS ! 

C8 #LIGNES ! ; 


: CGA 


C'] CAFFICHE.CGA) IS (AFFICHE) 
8 1er _OCTET ! 
3 CARTE ! ; 


: /NOP OPERATION LOGIQUE OFF ; 
: /AND 1 OPERATION LOGIQUE ! ; 
: /OR 2 OPERATION LOGIQUE ! ; 


DE 


/XOR 3 OPERATION_ LOGIQUE ! ; 
CIMAL 


: AFFICHE 


CARTE à 
CASE 
1 OF GRMODE à 16 <> IF 16 MODE THEN ENDOF 


2 OF GRMODE Q 13 <> IF 13 MODE THEN ENDOF 

3 OF GRMODE Q 5 <> IF 5 MODE THEN ENDOF 

TRUE ABORT" Carte non initialisée! 
ENDCASE (AFFICHE) ; 


: ORIGINE (S X Y -- ) \ xet y en pixels 
CARTE à 1 = 
IF 
95 MIN 80 * 
SWAP 383 MIN 8 / + îer_OCTET ! 
THEN ; 


: ASYST 375 1 ORIGINE ; 


: DEFAUT \ Valeur des seuils par défaut 


64 0 
DO 
1 4 / TABLE_SEUILS I + C! 
LOOP ; DE FAUT 
: 2SEUILS 
GRMODE @ DUP 2 <> SWAP 3 <> AND IF 3 MODE THEN 
CR 


5 SPACES 201 EMIT 64 205 REPLICATE 187 EMIT CR 5 SPACES 
186 EMIT 25 SPACES ." NIVEAUX DE GRIS" 24 SPACES 186 EMIT 


CR 5 SPACES 

199 EMIT 64 196 REPLICATE 182 EMIT CR 5 SPACES 
186 EMIT 

"0 1 2 3" 

" 4 5 6 " 


186 EMIT CR 5 SPACES 186 EMIT 
6 O0 DO ." 0123456789" LOOP ." 0123" 
186 EMIT CR 5 SPACES 204 EMIT 64 205 REPLICATE 185 EMIT 
CR 5 SPACES 186 EMIT 
BASE Q >R HEX 
64 0 
DO 
TABLE_SEUILS I + Ca (.) TYPE 
LOOP 
186 EMIT CR 5 SPACES 
200 EMIT 64 205 REPLICATE 188 EMIT CR 


R> BASE ! ; 
: SEUIL CS niveaul niveau? couleur -- ) 
DUP 16 < 
IF 
-ROT 2DUP < NOT 
IF CS couleur niveau niveau? ) 
SWAP 
THEN 
DUP 64 <= 
IF 
OVER - (S couleur niveaul plage ) 
>R TABLE_SEUILS + R> 
ROT FILL 
ELSE TRUE ABORT!' Niveau haut supérieur à 6411" 
THEN 
ELSE TRUE ABORT" Couleur supérieure à 16" 
THEN ; 


\ Histogrammes 
CREATE HIST.DATA 128 ALLOT 
HEX 


CODE CHISTOGRAM) 
IP PUSH 
SI SI XOR 
1 # DX MOV 
HIST.DATA 80 - # BX MOV 
SEG.IMAGE #) AX MOV 
AX DS MOV 
AH AH XOR 
FFO0 
DO 
AL LODS 
AL SHL 


AX DI MOV 
CS: DX O [BX+DI] ADD 
LOOP 
CS AX MOV 
AX DS MOV 
IP POP 
NEXT 
END -CODE 
DECIMAL 
: HISTOGRAM HIST.DATA 128 ERASE (HISTOGRAM) ; 
[| 
[] 
TURBO RESIDENT ] 
[| 
par Yves SURREL 
kde tébles F83 | Laxen : et. “pe 
“VolksForth ATARI ; ; 
Diffusions ru SAND et module 7 TURBO- Forth 
LISTING: HALT1.FTH 
echo off 
WARNING OFF 
\ Modifié par Y.SURREL juin 1989. 
ONLY FORTH ALSO HIDDEN ALSO DEFINITIONS HEX 
VARIABLE _SP VARIABLE _RP \ Sauvegardes 
VARIABLE _IP \ des 
VARIABLE _SS \ registres 
\ Structure de La pile Lors de L'appel depuis ASYST 
\ Ccf p. G1-2-54) 
\ U 
NN, ét tiers 
\ - off 2 L Addresses hautes 
\u's Seg 2 - \ 
\ - off 1 L +E | 
Ve Seg 1 = +C \ paramètres empilés 
NUE n - +A / par ASYST 
\ - Retoff - +8 | 
NE Ret seg - +6 / 
V8 DS fi +4 \ paramètre empilé 
\ par ENTREE 
\ ci-dessous 
NT ES - +2 \ id 
\ - Flags - SS:SP +0 Addresses basses 
CODE ENTREE 


\ Point d'entrée pour L'appel par programme extérieur 
CASYST) 

DS PUSH 

ES PUSH 

PUSHF 

CS AX MOV 

AX DS MOV 

SS BX MOV 

BX _SS #) XCHG 

AX SS MOV 

IP _IP #) XCHG \ Récupère La configuration 

SP _SP #) XCHG \ existant au moment du dernier 

RP _RP #) XCHG \ BYE ou HALT. 

NEXT 
END-CODE 
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CODE SORTIE 
\ Sortie dans Le cas de l'appel à partir d'ASYST. 
\ Utilisé dans RETOUR ci-dessous. 
IP _IP #) XCHG 
SP _SP #) XCHG 
RP _RP #) XCHG 
_SS #) AX MOV 
AX SS MOV 
POPF 
ES POP 
DS POP 
O FAR +RET 
END -CODE 


HERE 2- CONSTANT #.TO.POP 
\ sert à remplacer O0 FAR +RET par n FAR +RET 


\ primitive de sortie ave c programme laissé résident 
CODE CHALT) ( taiile-rési dente-en-paragraphes -- ) 
IP _IP #) MOV \ Sauvegarde configuration 
SP _SP #) MOV \ " 
RP _RP #) MOV \ " 
DX POP 
3100 # AX MOV 
21 INT 
NEXT 
END-CODE 


\ modification de ALLOC pour n'importe quel PSP 

LABEL RES-ALLOC ( taille -- dernier_seg ) 
62 # AH MOV 21 INT  BX ES MOV \ récupère PSP courant 
BX POP 4A # AH MOV 21 INT  1PUSH 

RES-ALLOC ! ALLOC ! 


5F CONSTANT RES-INT 
\ n° de l'interruption de "retour en forth! 


FORTH DÉFINITIONS 
: HPARAMS 
_SS à _SP à OA + La ; 


: PARAM (S n -- seg off ) | 
\ Recupere Les parametre passes sur La pile _SS:_SP 
>R RQ #PARAMS <= Ra 0 > AND 
IF 


R> NEGATE #PARAMS + 1+ >R 

_SS 4 _SP à 08 + Ra 4 * + La 

_SS & _SP à OA + RQ 4 * + La 
THEN R> DROP ; 


(S segment ) 
(S segment offset ) 


: RETOUR 
HPARAMS 2* 1+ 2* #.TO.POP ! SORTIE ; 


CODE BYE 
IP _IP #) XCHG 
RP _RP #) XCHG 
sP _SP #) XCHG 
4C # AH MOV 
21 INT 

END-CODE 


\ sortie de Forth laissé résident avec mot de relance 
: HALT ( <mot-de-relance> -- ) 

BL WORD COUNT 80 PLACE 

\ un mot ou rien dans Le PSP de Turbo 

0 RES-INT 4 * 2 + La D SEGMENT <> 

IF 


RES-INT 4 * LI! 
vecteur sur Forth 


['] ENTRÉE >BODY 0 
\ non : initialise 
DSEGMENT O0 RES-INT 4 * 2+ LI! 
HEIGHT DUP ALLOC DROP 
\ Limite taille minimale du forth 
CHALT) DROP 
\ et sortie résidente 

ELSE 
BYE 

THEN ; 
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GED AI 


CR 
.{ commande HALT [<mot>] active pour sortie résidente ) 


\ création d'un micro-fichier .COM (19 octets) 
\ de relance du Forth 


:: filename 10 (search0) 
if only forth also decimal eof then ; RESUME.COM 
\ cette commande interprètée stoppe ici La 
\ compilation de ce fichier 
\ si RESUME.COM existe déjà dans Le répertoire courant. 


CR 
.( création d'un fichier RESUME.COM pour) 
€ revenir au Forth ) 
warning off 
LABEL RESUME 
\ code du micro-programme de relance du forth 
0 # AX MOV  AX DS MOV RES-INT 4 * 2+ #) AX MOV 
AX AX OR O<> IF 
RES-INT INT \ exécute une interruption 50H 
THEN 4C00 # AX MOV 21 INT 
\ fin de fichier si pas de INT50 


RESUME HERE SAVE RESUME .COM 


FORGET RESUME 
WARNING ON 


ONLY FORTH ALSO DÉFINITIONS DECIMAL 

GO “nent ESS ess SR RES SE ne Nas nee 
Ce programme est une modification de HALT.FTH permettant 
L'appel de FORTH résident par un autre Langage 
(personnellemnt, j'utilise ASYST) avec passage de 
paramètres. La structure de La pile Lors de l'appel est 
décrite au début du programme. D'autres langages 
utilisent La même structure de pile Lors d'appel de 
procédures extérieures (BASIC...). 


Une autre modification concerne la sauvegarde du 
contexte FORTH (piles). Cela autorise ceci: 

BYE MOT (sous DOS, RESUME lancera FORTH et MOT 
sera éxécuté) 
ou: : 
RETOUR MOT (le prochain appel par ASYST (p. ex.) 
enchaînera sur MOT) 


J'utilise un FORTH résident en mode ‘'esclave!!: 


: SLAVE 
BEGIN 
1 PARAM La \ selon La valeur du 1er paramètre... 
CASE 
0 OF QUIT ENDOF \ quitter Le mode esclave 
1 OF ACTIONT ENDOF \ ou éxécuter 
2 OF ACTION2 ENDOF 
\ différents traitements... 


ENDCASE 
RETOUR  \ ...vers ASYST. Attente d'une commande. 
AGAIN ; 


ASYST 


PE à 5 


DARK N 1+ O0 DO 1 RING I + C! LOOP 3 O DO I 
MAKETOWER LOOP MAKEBASE 1 N DO O I MAKERING -1 
| TOURS DE HANOI +LOOP ; 


par Peter Midnight \ Values of n larger than 7 take a fair amount of time. 
: TOWERS (nn Fe: 
1 MAX NMAX MIN CN) ! 
SETUP N 2 O 1 BEGIN 
OVER POS N 4 + AT 
ROT &DUP MULTIMOV 
HFO à 1- DUP HFO ! UNTIL 
2DROP 2DROP 
0 O AT 
LISTING: HANOI .FTH . 


\ The Famous Towers of Hanoï by Peter Midnight. : HANOI 7 TOMERS ; 
\ From FORTH Dimensions Volume 2 Number 2. 

\ Converted to Laxen and Perry F83 by Jack Brown. 

\ The original author Left out the stack comments and 
\ 1 don't have time to put them in today. Send me a 

\ copy with them in! 


12 CONSTANT NMAX VARIABLE (CN) NMAX CN) ! 
5: NÇC-- n) (N) à ; \ fetch value of n. 
219 CONSTANT COLOR 

VARIABLE HFO 3 HFO ! 

VARIABLE RING N ALLOT 


: DELAY C(n  -- ) 

0 DO 17 0 DO 127 127 * DROP LOOP LOOP ; 
: POS (nn!) 

NX TTYXN +): 


: HALFD € char size -- ) 
0 DO DUP EMIT LOOP DROP ; 
: <DISP> ( row char size -- ) 


2DUP HALFD ROT 3 < IF BL ELSE ( ASCII H) 219 
THEN EMIT HALFD ; 
: DISPLAY 
SWAP >R -ROT OVER - RQ AT 
R> -ROT <DISP> ; par Bruce T. NICHOLAS 
: PRESENCE ( n flag ) 
RING + Ca = ; 


JEU DE CAPTURE 


: LINE 
4 SWAP N O0 DO DUP I PRESENCE 1+ 
ROT + SWAP LOOP DROP ; 


: RAISE 
DUP POS SWAP LINE 2 SWAP 
DO 2DUP I BL DISPLAY 2DUP I 1- COLOR DISPLAY 
-1 +LOOP 2DROP ; 
: LOWER LISTING: CAPTURE .FTH 
DUP POS SWAP LINE 1+ 2 
DO 2DUP I 1- BL DISPLAY 2DUP I COLOR DISPLAY \ FORTH DIMENSIONS VOL.X No.6 1988 
LOOP 2DRCP ; \ (Turbo-Forth-83 Version by M.ZUPAN June 1989) 
: MOVELEFT 
POS SWAP POS 1- DO DUP I 1+ 1 BL DISPLAY \ TIME OF DATE WORDS 
DUP I 1 COLOR DISPLAY -1 +LOOP DROP ; NGpronpesnsessesnss 
: MOVERIGHT VARIABLE HOURS : GHRS HOURS à ; 
POS 1+ SWAP POS 1+ DO DUP I 1- 1 BL DISPLAY VARIABLE MINUTES : OMIN MINUTES à ; 
DUP I 1 COLOR DISPLAY LOOP DROP ; VARIABLE SECONDS : SEC SECONDS à ; 
: TRAVERS 
2DUP > IF MOVELEFT ELSE MOVERIGHT THEN ; CODE GETIME \ Get the time of day 
: MOVE AX POP AL AH MOV 33 INT CX PUSH 
KEY? IF O 16 AT ABORT THEN AH AH SUB 2PUSH END-CODE 
-ROT 2DUP RAISE >R 2DUP R> ROT TRAVERS : TIMEQ \ Get the time 
2DUP RING + 7- C! SWAP LOWER ; 44 GETIME DROP 256 /MOD ROT 256 /MOD ; 
: MULTIMOV  RECURSIVE : TIME! \ Store the time 
3 PICK 1 = IF DROP MOVE ELSE TIMEQ HOURS ! MINUTES ! SECONDS ! DROP ; 
>R >R SWAP 1- SWAP R> R> 4DUP SWAP MULTIMOV : TIME \ Show elapsed time during game 
&DUP DROP ROT 1+ -ROT MOVE1 TIMEQ 60 * + 60 * + QHRS 60 * QMIN + 60 * QSEC + - 
-ROT SWAP MULTIMOV THEN ; 60 /MOD . ." Minutes and ! . .!! Seconds ! DROP : 
: MAKETOWER 
POS 4 N + 3 DO DUP I AT 219 EMIT LOOP DROP H \ CODE WORDS 
: MAKÉBASE er EE 
ON&%+ATN 6 * 3 + 0 DO 219 EMIT LOOP : CODE POKE € byte seg off --- ) \ Put a byte LC! 
: MAKERING BX POP ES POP  AX POP ES: AL O [BX] MOV 
2DUP RING + 1- C! SWAP LOWER ; NEXT END - CODE 
: SETUP CODE PEEK ( seg off --- byte ) \ Get a byte LCA 
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AX AX SUB BX POP ES POP ES: O [BX1 AL MOV 23 6 AT ." Box them in completely to win." 
1PUSH  END-CODE 20 8 AT ." Use the numeric keypad to move 


CODE EQUIP (€ --- equip ) \ List of hardware HERO." ; 
17 INT 1PUSH  END-CODE 
HEX : KEYS \ Show the cursor controt keys 
: CGA? ( --- VideoBuffer Attrib) : 34 11 AT." 7 9 1 38 11 AT 30 EMIT 
\ B&W or Color video monitor 31 12 AT ." : 5 u 
EQUIP 30 AND 30 = IF B000 70 31 13 AT ." : 3 W 
ELSE B800 71 THEN ; 31 14 AT M  ----  ---- 132 14 AT 17 EMIT 
DECIMAL 34 15 AT ." Pi H 44 14 AT 16 EMIT 
CGA? CONSTANT ATTRIB 31 16 AT ." . | À " 
CONSTANT SEGMENT 31 17 AT ." 1 3 "38 17 AT 31 EMIT 
23 20 AT ." Tap any other key to stop HERO." 
\ RANDOM GENERATOR 23 22 AT ." Press ESC key to quit anytime." 
NME See ; 
VARIABLE SEED TIMEQ + + * SEED ! : CONTINUE \ Pauses the display 
25 24 AT ." Press any KEY to continue." WKEY ; 
: RAND € -- random no. ) : INVERSE \ Reverse video for title 
SEED Q 5421 * 1+ DUP SEED ! ; 3 0 DO 
: RANDOM € n -- random no. ) \ Random number generator 30 0 DO ATTRIB SEGMENT 
RAND FLIP SWAP MOD ; 63 1 + 160 J * + POKE 2 +LOOP 
LOOP ; 
\ EXTENDED KEYBOARD KEYS : INVERSEA \ Reverse video for keypad area 
À ommmmmmmmmmmensmmnsenee 9 0 DO 
: EKEY 34 0 DO ATTRIB SEGMENT 1661 I + 
KEY DUP O= IF DROP KEY THEN ; 160 J * + POKE 2 +LOOP 
: WKEY LOOP ; 
EKEY 0= IF DROP THEN ; : ASK \ Read the key and Limit the input 
. KEY 48 - 1 MAX MIN DUP 48 + EMIT ; 
\ MATRIX WORDS : HBEASTS? \ Store the number of beasts 
dome 20 20 AT ." Number of beasts ( 1, 2, or 3)?" 
: MATRIX € #rows #columns -- ) 3 ASK #BEASTS ! ; 
\ create a two dimensional array : DIFFICULTY? \ Store the difficulty Level 
CREATE 20 22 AT 
2DUP , , ." Level of difficulty ( 1 to 3 Easiest }) ? " 
* 2% ALLOT ; 3 ASK LEVEL !  ; 
: SPEED? \ Store the speed of the game 
: ELEMENT ( rom# col# “matrix -- “element ) 20 24 AT ." Set speed ( 1 to 9 slowest ) ? 
DUP >R à 9 ASK SPEED !  ; 
ROT 2* * SWAP 2* + 
R> 4++; \ BORDERS AND COLORS 
| Apnsseeetreneessses 
24 80 MATRIX SCREEN \ Build data image of the screen : THERE Ch v -- seg addr ) 
\ Location to put the screen data 
: FIND-LENGTH € addr -- Length ) SWAP SEGMENT -ROT SGREEN ELEMENT à ; 
\ find the Length of the data matrix : T&B \ Draw the top and bottom 
SCREEN DUP 2+ à SWAP à * ; 79 1 DO 205 I O THERE POKE 
5 FILL-ARRAY ( array-index -- ) 205 I 23 THERE POKE LOOP ; 
\ Fill the matrix with data : SIDES \ Draw sides of the display box 
0 DO 1 2* O I SCREEN ELEMENT ! LOOP ; 23 1 DO 186 O0 I THERE POKE 


186 79 I THERE POKE LOOP ; 
CORNERS \ Draw the four corners 

201 O0 O THERE POKE 

200 O0 23 THERE POKE 

187 79 O THERE POKE 

188 79 23 THERE POKE ; 
BORDERS \ Draw a complete box around 

T&B SIDES CORNERS ; 
: COLOR \ Set screen attribute bytes 
3840 1 DO 23 SEGMENT Ï POKE 2 +LOOP ; 


\ GAME VARIABLES 


VARIABLE LEVEL 
VARIABLE SPEED 
VARIABLE #BEASTS 
VARIABLE END 
VARIABLE XKEY 
VARIABLE CNT 
VARIABLE X 
VARIABLE Y 
VARIABLE WIN 
VARIABLE LOSE 
VARIABLE DIFFCNT 
VARIABLE ANOTHER 


\ OBSTACLES BEAST HERO and misc 


: HORZ 78 RANDOM 1+ ; 
: VERT 22 RANDOM 1+ ; 
: HB H CNT 9 2* + ; 
: VB V CNT à 2* + ; 


1 END ! 
1 LOSE ! : OBSTACLES \ Place obstacles on screen 
400 0 DO 177 HORZ VERT THERE POKE LOOP ; 
CREATE H 8 ALLOT : VACANT? \ Check if the location is empty 
CREATE V 8 ALLOT BEGIN HORZ DUP HB ! 
VERT DUP VB 

\ TITLE AND INSTRUCTIONS THERE PEEK BL = 
Née sense se UNTIL ; 
: TITLE \ Display the title page on the screen : BEAST \ Place the number of beasts wanted 

31 1AT." CAPTURE" -1 CNT ! 

20 4 AT ." Trap the beasts before they get youl! BEGIN CNT 1+! VACANT? 
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200 O DO BL HB & VB à THERE POKE 
42 HB à VB à THERE POKE 
LOOP 
CNT @ HBEASTS à 1- = 
UNTIL ; 


+ 


: V+1 
2 V-1 
: H+1 
: H-1 
: VO 
: HO 
: H1 
: V1 


+ 


un ne se se me se se 


<TIITI<LIr<< 
œ © © © © © © Co 
+++ + + + + + 
9 9 » 9 p 
- 


: OPOKE \ Put the data to the screen 
HO VO THERE POKE ; 


: HERO \ Look for a place to put our HERO 
& CNT !  VACANT? 
200 O0 DO BL OPOKE 2 OPOKE  LOOP ; 


5: VACANT \ Is location blank? 


DUP BL = ; 
: UP” \ Move one space Up 
va O Do 
HO V-1 I - THERE PEEK VACANT 
OPOKE 177 HO V-1 I - THERE POKE 
2 HO v-1 THÈRE POKE 
V-1 V1! LEAVE ELSE 
42 = IF LEAVE THEN THEN LOOP ; 
: DOWN \ Move one space down 
23 VO - O DO 


HO V+1 1 + THÈRE PEEK VACANT 
OPOKE 177 HO  V+1 1 + THÈRE POKE 
2 HO  V+1 THERE POKE 
V+1 V1 1 LEAVE ELSE 
42 = IF LEAVE THEN THEN LOOP ; 
: LEFT \ Move one space Left 


HO 0 DO 
H-1 I - VO THERE PEEK VACANT 
OPOKE 177 H-1 I - VO THERE POKE 
2  H-1 VO THERE POKE 
h-1 H1! LEAVE ELSE 


42 = IF LEAVE THEN THEN LOOP ; 
: RIGHT \ Move one space right 


79 HO - O DO 
H+1 I + VO THERE PEEK VACANT 
OPOKE 177 H+1 I + VO THERE POKE 
2 H+#1 VO THERE POKE 
H+1 H1 ! LEAVE ELSE 


42 = IF LEAVE THEN THEN LOOP ; 
: UP_LEFT \ Move one space up and left 


VO 0 DO 
H-1 1 - V-1 I - THERE PEEK VACANT 
OPOKE 177 H-1 I - V-1 I - THERE POKE 
2 H-1 v-1 THERE POKE 
H-1 HT 1! V-1 V1 ! LEAVE ELSE DUP 
42 = IF DROP LEAVE THEN 


186 = IF LEAVE THEN THEN LOOP ; 
: UP_RIGHT \ Move one space up and right 


VO 0 DO 
H+T I + V-1 I - THERE PEEK VACANT 
OPOKE 177 H+1 I + V-1 1 - THERE POKE 
2 Hi V-1 THERE POKE 
H+3 HA 1 V-1 V1 ! LEAVE ELSE DUP 
42 = IF DROP LEAVE THEN 
186 = IF LEAVE THEN THEN LOOP ; 


: DOWN_LEFT \ Move one space doun and Left 
23 VO - O DO 
I - V+1 I + THERE PEEK VACANT 
I - V+1 I + THERE POKE 
V+1 THERE POKE 
H-1 H1 ! V+1 V1 ! LEAVE ELSE DUP 


h-1 
OPOKE 177  H-1 
H-1 


# 
mn 
u 


IF DROP LEAVE THEN 
186 = IF LEAVE THEN THEN LOOP ; 
: DOWN_RIGHT \ Move one space down and right 


IF 


IF 


IF 


IF 


IF 


IF 


23 VO - O DO 
H+1 I + V+1 I + THERE PEEK VACANT IF 
OPOKE 177 H+1 1 + V+1 I + THERE POKE 
2  H+1 V+1 THERE POKE 
H+ H1 ! V+1 V1 ! LEAVE ELSE DUP 


42 = IF DROP LEAVE THEN 
186 = IF LEAVE THEN THEN LOOP : 
: FUNCTION> \ Check for the cursor key and move 

DUP 72 = IF DROP UP° EXIT THEN 
DUP 80 = IF DROP DOWN EXIT THEN 
DUP 77 = IF DROP RIGHT EXIT THEN 
DUP 75 = IF DROP LEFT EXIT THEN 
DUP 71 = IF DROP UP_LEFT EXIT THEN 
DUP 73 = IF DROP UP_RIGHT EXIT THEN 
DUP 79 = IF DROP DOWN_LEFT EXIT THEN 
DUP 81 = IF DROP DOWN_RIGHT EXIT THEN 
DUP 27 = IF DROP END OFF EXIT THEN 


DROP 2 OPOKE ; 


: MOVE_HERO \ Move the HERO. He can push obstacles 
KEY? IF EKEY DUP XKEY ! ELSE XKEY @ THEN FUNCTION> : 


: Y=0 & RANDOM 1- 2/ Y ! : 
: X=0 4 RANDOM 1- 2/ X 1! ; 
: Y©0 
O> IF -1 Y ! ELSE 1 Y ! THEN 100 RANDOM DUP 
60 < IF DROP ELSE 
75 > 1F 0 Y ! ELSE Y à NEGATE Y ! THEN THEN; 
: X<>0 
0> IF -1 X 1! ELSE 1 X ! THEN 100 RANDOM DUP 
70 < IF DROP ELSE 
80 > IF O X 1 ELSE X à NEGATE X ! THEN THEN ; 
: MOVEB 


HB Q HO - DUP O= IF DROP X=0 ELSE X<>0 THEN 
VB @ VO - DUP O= IF DROP Y=0 ELSE Y<>0 THEN 
HB à X © + VB Q Y Q + THERE PEEK 
BL = IF BL HB à VB à THERE POKE 
42 HB@QX Q + VB Q Y 9 + THERE POKE 
HB a X@Q+ HB! 
VBaYa+ VB! 
THEN ; 
: MOVE_BEAST \ Move the beasts 
-1 CNT ! 


BEGIN CNT 1+1 MOVEB CNT à #BEASTS à 1- = UNTIL ; 
: DELAY \ Speed of game Loop 

25 SPEED à 9 * * O0 DO LOOP ; 
: SET_LEVEL \ Set game difficulty level 

DIFFCNT DUP à 1- DUP ROT ! ; 


\ LOSE? and WIN? 


BEGIN CNT 1+! 
3 0D0 30D0 
HB @ I 1- + VB @ J 1- + THERE PEEK 
2 = IF O END ! 
4 24 AT ." YOU LOSE " O LOSE ! LEAVE 
ELSE 1 LOSE ! 
THEN 
LOOP LOOP 
CNT @ #BEASTS Q 1- = 
UNTIL ; 


: WIN? \ Check for winning the game 
-1 CNT ! O WIN ! 
BEGIN CNT 1+1 
3 0 DO 3 0 DO 
HB Q I 1- + VB Q J 1- + THERE PEEK 
32 = 1F LEAVE 
ELSE WIN 1+! 
THEN 
LOOP LOOP 
CNT à #BEASTS à 1- = 
UNTIL 
WIN Q #BEASTS à 9 * = 
IF 4 24 AT ." YOU WIN " O END ! THEN ; 
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: Y/N \ Check for a YES or NO answer 
BEGIN KEY UPC DUP 78 IF 1 ANOTHER ! DROP EXIT THEN 
89 IF -1 ANOTHER ! THEN 
ANOTHER @ O <> 
UNTIL ; 


\ CAPTURE 


: TELL \ Display the instructions 
DARK TITLE INVERSE 
KEYS INVERSE1 
CONTINUE 20 24 AT 32 SPACES 20 22 AT 40 SPACES 
#BEASTS? DIFFICULTY? SPEED? 
FIND-LENGTH FILL-ARRAY ; 


: PLAY \ Draw the playing board & play 

1 END ! O XKEY ! O ANOTHER ! DARK 
COLOR BORDERS OBSTACLES BEAST HERO 
CONTINUE 20 24 AT 32 SPACES TIME! 
LEVEL @ DIFFCNT ! 
BEGIN DELAY MOVE_HERO 

SET_LEVEL 

O= IF MOVE_BEAST LEVEL @ DIFFCNT ! THEN 

LOSE? LOSE à 

= IF ELSE WIN? THEN 

50 24 AT TIME 

END à 0= 
UNTIL 20 24 AT ; 


: GAME \ Play the game of CAPTURE 
BEGIN TELL PLAY 50000 0 DO LOOP 

20 24 AT ." Play again (Y/N) " 

Y/N ANOTHER @ 1 = UNTIL DARK ; 


EOF 
\ To build a .COM file of the program: 


: CAPTURE GAME BYE ; 

1 CAPTURE 1S BOOT 

SAVE-SYSTEME CAPTURE.COM 

EOF | 

This game is based on the program originally written in 
Applesoft BASIC by Rob Smythe for the Apple I1 and published 
in NIBBLE Magazine Vol.2/No.4/1981. 1 wrote this version as 
a learning experience. 


Bruce T. Nicholas 


Ce jeu a été initialement écrit en BASIC Applesoft par Rob 
Smythe pour Apple II et publié dans le magazine NIBBLE 
Vol.2/N°4/1981. J'ai écrit cette version à titre 
d'expérience d'apprentissage. 

| 


DESASSEMBLEUR 8086 POUR TF83 | 


par Charles CURLEY 
Adaptation TURBO-FORTH-83 par Michel Zupan 06/89 


DISASS86.FTH 

: désassemble à partir d'une adresse 

intra-segment 
\ seg adr LDIS : désassemble à partir d'une adresse 

extra-segment 

\n IDIS : désassemble l'interruption n 
\ NDIS : reprend un désassemblage au dernier point d'arrêt 
\ SEE <mot> : revectorisé pour désassembler un mot en code 
\ ECHO à ECHO OFF 


LISTING: 
\ adr DIS 


TEDt V°S7Z D TDILLET 19328 


ONLY FORTH ALSO ROOT DEFINITIONS 
VOCABULARY DISASSEMBLER 

DISASSEMBLER ALSO DEFINITIONS DECIMAL 
WARNING OFF 


: EXEC: 2* R> + PERFORM  ; 


CODE 2/S Anct---n' | shift n right ct times 
CX POP 

AX POP 

AX CL SHR 

1PUSH 

END - CODE 

CODE 2*S \Anct---n! | shift n left ct times 
CX POP 

AX POP 

AX CL SHL 

1PUSH 

END-CODE 


CODE SEXT 
\n---n' | sign extend lower half of n to upper 
AX POP 
CBw 
1PUSH 
END -CODE 


2VARIABLE RELOC 

DSEGMENT O0 RELOC 2! 

: T@  RELOC 20 ROT + La ; 
Vin first word, seg in 2nd. You 
\ dump/dis any segment w/ any 

: TCQ RELOC 2Q ROT + LCQ ; 
\ relocation you want by setting 
\ RELOC correctly. 


\ keeps relocation factor 


VARIABLE CP 
VARIABLE SAVEBASE BASE à SAVEBASE 1! 


: OOPS CR SAVEBASE à BASE 1 TRUE ABORT! OOPS!'! 


: NEXTB CP à TCa 
: NEXTW CP à Ta 


CP 1+! ; 

2 CP +! ; 

5 .MOI 
\ --- | have the current word print out its name. 
LAST @ [COMPILE] LITERAL COMPILE .ID ; IMMEDIATE 


VARIABLE OPS \ operand count 
VARIABLE IM \ 2nd operand extension flag/ct 


: ?DISP 
\ op ext --- op ext | does MOD operand have a disp? 
DUP 6 2/S DUP 3 = OVER 0= OR 
0= IF IM! ELSE 
0= IF DUP 7 AND 6 = IF 2 IM ! THEN THEN THEN ; 


: SELF 
\ -_ 
CREATE LAST à , DOES> à .ID ; 
\ the ultimate in self-doc! 


| create a word which prints îts name 


SELF - SELF . SELF [BX+S1] 
SELF . SELF «SELF [BX+D1] 
- SELF - SELF -SELF (BP+SI] 
.SELF .SELF «SELF [BP+D1] 
SELF SELF -SELF [SI] 
«SELF .SELF SELF [DI] 
SELF .SELF .-SELF [BP] 
. SELF .SELF -SELF [BX] 
. SELF -SELF \ RETURN STACK POINTER 
. SELF - SELF \ INTERPRETER POINTER 
SELF W - SELF \ WORKING REGISTER 


.SELF ES 
.SELF CS 
.SELF SS 
.SELF DS 
.SELF # 

.SELF #) 
.SELF S#) 


VARIABLE SYMBOLIC SYMBOLIC ON 


6 CONSTANT SYMBOLCT 


CREATE SYMBOLS ASSEMBLER 


>NEXT , >NEXT 1-, >NEXT 2- , >NEXT 3 - , 
! BRANCH >BODY : 
t (LO®P) 5 +, 
DISASSEMBLER 
«SELF NEXT .SE LF 1PUSH .SELF 2PUSH 
.SELF 3PUSH 

.SELF BRAN1 .SE LF PLOOP 
: 2SYMBOL 

\a-- an/ifn=-1 then no symbol, else index 


TRUE SYMBOLIC à IF \ if in code segment. 
SYMBOLCT O DO OVER I! 2* SYMBOLS + 9 = 
IF DROP I LEAVE THEN LOOP THEN ; 


VARIABLE ENDDIS 

: . SYMBOL \a--- {| print symbol name else value 
?SYMBOL DUP 0< IF DROP U. EXIT THEN 
ENDDIS ON SWAP U. EXEC: 
NEXT 1PUSH 2PUSH 3PUSH BRANT PLOOP ; 


: SYMBOL CREATE ©? >NAME , ! >NAME , 
DOES> SYMBOLIC à IF 2+ THEN Q .ID ; 


SYMBOL BX BX W  SYMBOL [BX] [BX] [W] 
SYMBOL SI SI IP SYMBOL [SI] [SI] [IP] 
SYMBOL BP BP RP SYMBOL [BP] [BP] CRP] 


: .16REG \r#--- | register printed out 
7 AND EXEC: AX CX DX BX SP BP SI DI ; 
: .8REG \ r#--- | register printed out 
7 AND EXEC: AL CL DL BL AH CH DH BH ; 
: .SEG \ s# --- | register printed out 
3 2/S 3 AND EXEC: ES CS SS DS L 
: ODISP \ --- {| do if displacement is 0 
." 0 H 
: BDISP \ --- | do if displacement is byte 
CP @ IM @ + TCa SEXT U. OPS 1+! IM OFF ; 
: MDISP \ --- | do if displacement is mord 
CP Q IM@+ TQ U. 2 OPS +! IM OFF ; 
: (-R/M) \opext --- | print a register 
SWAP 1 AND IF .16REG ELSE .8REG THEN IM OFF ; 
: .R/M \ op ext --- op ext | print r/m as register 
eDUP C.R/M) ; 
: .REG \ op ext --- op ext | print reg as register 


2DUP 3 2/S (.R/M) ; 


: .DISP \ op ext --- op ext | print displacement 
DUP 6 2/S 3 AND EXEC: ODISP BDISP WDISP .R/M ; 
: BIMM \ --- | do if immed. value is byte 
CP à IM@ + TCa . 1 OPS +! IM OFF ; 
HEX 
: .MREG \ op ext --- op ext | register(s) printed out + 
disp 


DUP C7 AND 6 = IF WDISP #) ELSE 

DUP CO AND CO - IF .DISP 

DUP 7 AND EXEC: [BX+SI] [BX+DI1 [BP+SI] [BP+D1] 
[SI] [DIJ [BP] [BX] 

ELSE .R/M IM OFF THEN THEN ; 


DECIMAL -SELF BYTE .SELF WORD 
: .SIZE \ op --- | decodes for size 

1 AND EXEC: BYTE WORD ; 
CREATE SEGTB ASCII E C, ASCII CC, ASCII SC, ASCIIDC, 


: SEG: \ op --- | print segment overrides 
3 2/S 3 AND SEGTB + C@ EMIT ." Sin ; 


: POP \op--- | print pops 
DUP 15 = IF OOPS THEN .SEG .MOI : 
: PUSH \op --- | print pushes 
-SEG .MOI ; 
: P/P \ op --- | pushes or pops 
DUP 1 AND EXEC: PUSH POP ; 
.SELF DAA .SELF DAS .SELF AAA .SELF AAS 
: ADJUSTS  \ op --- | the adjusts 
3 2/S 3 AND EXEC: DAA DAS AAA  AAS : 
: P/SEG \ op --- | push or seg overrides 
DUP 5 2/S 1 AND EXEC: P/P SEG: n 
: P/ADJ \op--- | pop or adjusts 
DUP 5 2/S 1 AND EXEC: P/P ADJUSTS n 
: OGP \ op --- op | opcode decoded & printed 


DUP & AND IF DUP 1 AND 
IF WDISP ELSE BIMM THEN # 
1 AND IF AX ELSE AL THEN ELSE 


NEXTB OVER 2 AND 


IF 


THEN  2DROP THEN 


.MREG .REG ELSE ?DISP .REG .MREG 


0 


-SELF ADC € .SELF AND, ) SELF 


.SELF ADD 

XOR 

( .SELF OR, ) .SELF SBB «SELF SUB «SELF 

CMP 

: AND, ." AND # : 

5 OR, ."OR " 

: OGROUP \op --- | select 0 group to print 
DUP OGP 3 2/S 7 AND EXEC: 
ADD OR, ADC SBB AND, SUB XOR CMP ; 

: LOWS \op--- | 0-3f opcodes printed out 
DUP 7 AND EXEC: 


OGROUP  OGROUP  OGROUP  OGROUP 
OGROUP  OGROUP P/SEG  P/ADJ ; 


: .REGGP 


CREATE LAST à, 


\ op --- | register group defining word 


DOES> à SWAP .16REG .ID ; 


.REGGP INC .REGGP DEC .REGGP PUSH .REGGP 

POP 

: POP  \ op --- | handle illegal opcode for cs pop 
DUP 56 AND 8 = IF ." illegal," DROP ELSE POP THEN ; 

: REGS \op --- | 40-5f opcodes printed out 
DUP 3 2/S 3 AND EXEC: INC DEC PUSH POP : 

.SELF O .SELF NO 

-SELF B/NAE .SELF NB/AE 

SELF E/2 -SELF NE/NZ 

-SELF BE/NA .SELF NBE/A 

.SELF S -SELF NS 

.SELF P/PE . SELF NP/PO 

.SELF L/NGE .SELF NL/GE 

.SELF LE/NG -SELF NLE/JG 

: .BRANCH \op --- | branch printed out y/ dest. 


NEXTB SEXT CP @ + .SYMBOL ASCII J EMIT 15 AND EXEC: 


O NO 
S NS 


: MEDS 


: 80/81 


ADD OR, 


P/PE 


B/NAE NB/AE E/Z NE/NZ BE/NA NBE/A 
NP/PO L/NGE NL/GE LE/NG NLE/JG :; 


\op --- | 40-7f opcodes printed out 
DUP 4 2/S 3 AND EXEC: 
REGS REGS OOPS .BRANCH :; 


\ op --- | secondary at 80 or 81 
NEXTB ?DISP OVER 1 AND 

IF WDISP ELSE BIMM THEN %# .MREG 

SWAP .SIZE 3 2/S 7 AND EXEC: 

ADC SBB AND, SUB XOR CMP ; 


ar 
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: 83$S \ op --- | secondary at 83 : MOVS/IMM  \ op --- | BO-BF decodes 
NEXTB ?DISP BIMM # .MREG DUP 8 AND IF WDISP # .16REG ELSE BIMM # .8REG 
SWAP .SIZE 3 2/S 7 AND EXEC: THEN MOV ; 
ADD OR, ADC SBB AND, SUB XOR CMP ; 


: HMEDS \ op --- | op codes 80 - CO displayed 
: 1GP \ op --- | r/m reg opcodes DUP 4 2/S 3 AND EXEC: &MOVS 90S AOS MOVS/IMM  ; 
CREÂTE LAST à@ , 
DOES> à >R NEXTB ?DISP .REG .MREG  2DROP -SELF LES .SELF LDS .SELF INTO -SELF 
R> .ID ; IRET 


1GP TEST 1GP XCHG .SELF LEA .SELF MOV : LES/LOS \ op --- | les/lds instruction C4-C5 
NEXTB .MREG 1 SWAP .REG 2DROP 1 AND EXEC: LES 
; \ 88-89 LDS ; 


: MOVRM/REG NEXTB ?DISP .REG .MREG 2DROP MOV 


: MOVD NEXTB .MREG .REG 2DROP MOV ; \ 8A-8B : RET \op--- | return instruction C2-C3, CA-CB 
DUP 1 AND O= IF WDISP .M SP+" THEN 

HEX 8 AND IF ." FAR " THEN .MOI ; 

: MOVS>M \op--- | display instructions 8C-8E 


NEXTB OVER 8D = IF .MREG .REG LEA  ELSE : MOVAR/M \ op --- | return instruction C2-C3, CA-CB 
OVER 8F = IF .MREG E ' POP >NAME ] LITERAL .ID ELSE NEXTB ?DISP OVER 1 AND IF WDISP ELSE BIMM THEN 
SWAP 1 OR SUAP \ 16 bit moves only, folksl! # 

OVER 2 AND IF .MREG DUP .SEG ELSE .MREG OVER .SIZE MOV 2DROP ; 


€ ?DISP) DUP .SEG .MREG THEN MOV THEN THEN 2DROP ; 


5 INT \op--- | int instruction CC-CD 
: BMOVS \op--- | display instructions 80-8F 1 AND IF NEXTB ELSE 3 THEN U. .MOI ; 
DUP 2/ 7 AND EXEC: 80/81 83S TEST XCHG 
MOVRM/REG MOVD MOVS>M MOVS>M ; : INTO/IRET \ op --- | int & iret instructions CE-CF 


1 AND EXEC: INTO IRET ; 


DECIMAL. 


: COS \op--- | display instructions CO-CF 
.SELF XCHG -SELF CBW -SELF CWD .SELF CAL DUP 2/ 7 AND EXEC: 


.SELF WAIT .SELF PUSHF .SELF POPF .SELF SAHF OOPS RET LES/LDS MOV#R/M OOPS RET INT  INTO/IRET 
.SELF LAHF ; 


: INTER \ --- | decode interseg jmp or call : AAS 
NEXTW .SYMBOL ." : # NEXTW U. ; \ op --- {| does anybody actually use these things? 
CREATE LAST Q , DOES> à .ID NEXTB 2DROP ; 
: CALLINTER \ --- | decode interseg call 
INTER CALL ; AAS AAM AAS AAD 


: HIS \ op --- | 98-9F decodes .SELF ROL .SELF ROR 

7 AND EXEC: -SELF RCL .SELF RCR 

CBW  CWD  CALLINTER WAIT  PUSHF  POPF SAHF LAHF  ; .SELF SHL/SAL .SELF SHR 

-SELF SAR 

: XCHGA \op--- | 98-9F decodes e 

DUP 7 AND IF AX .16REG XCHG ELSE DROP ." NOP ! THEN ; : SHIFTS \ op --- | secondary instructions d0-d3 

DUP 2 AND IF CL THEN 

: 90$ \ op --- | 90-9F decodes NEXTB .MREG NIP 3 2/S 7 AND EXEC: 


DUP 3 2/S 1 AND EXEC: XCHGA HIS ; ROL  ROR  RCL  RCR  SHL/SAL SHR  OOPS SAR  ; 


.SELF MOVS . SELF CMPS : XLAT DROP .MOI ; 


: MOVS \ op --- | A4-A5 decodes : ESC 
-S1ZE MOVS ; \ op ext --- op ext | esc instructions dB8-DF 
2DUP .MREG [ HEX ] 38 AND [ DECIMAL ] SWAP 7 AND OR 
: CMPS \ op --- | A6-A7 decodes U. .MOI ; 


.SIZE CMPS ; 


DEFER ESCCODE t ESC IS ESCCODE 
: .AL/AX \ op --- | decodes for size 
1 AND EXEC: AL AX ; : DOS \op--- | display instructions DO-DF 
DUP 8 AND IF NEXTB ESCCODE 2DROP EXIT THEN 
: MOVS/ACC \ op --- | A0-A3 decodes DUP 7 AND EXEC: 
DUP 2 AND IF .AL/AX WDISP #) ELSE SHIFTS SHIFTS SHIFTS SHIFTS AAM AAD OOPS XLAT ; 


WDISP #) .AL/AX THEN MOV ; 
.SELF LOOPE/Z ( .SELF LOOP, ) 
.SELF TEST .SELF STOS .SELF LODS .SELF SCAS  .SELF JCXZ .SELF LOOPNE/NZ 
: LOOP, ." LOOP " ; 


: TEST \ op --- | A8-A9 decodes 
DUP 7 AND IF WDISP ELSE BIMM THEN # .AL/AX TEST ; : LOOPS \op--- | display instructions E0-E3 
NEXTB SEXT CP à + .SYMBOL 3 AND EXEC: 
: STOS (op --- ) .SI2E STOS LOOPNE/NZ LOOPE/Z LOOP, JCXZ ; 


: LODS C op --- ) .SIZE LODS ; 


5 SCAS € op --- } .SIZE SCAS .SELF IN -SELF OUT . SELF JMP 

: AOS \ op --- | AO-AF decodes :  IN/OUT \ op --- | display instructions 
DUP 2/ 7 AND EXEC: E4-E6,EC-EF 
MOVS/ACC MOVS/ACC  MOVS CMPS DUP 8 AND IF 
.TEST 


STOS LODS SCAS : DUP 2 AND IF .AL/AX DX OUT ELSE 
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DX .AL/AX IN THEN ELSE 
DUP 2 AND IF .AL/AX BIMM # OUT ELSE 
BIMM # .AL/AX IN THEN THEN ; 


: CALLS \op--- | display instructions E7-EB 
DUP 2 AND IF DUP 1 AND 
IF NEXTB SEXT CP à + .SYMBOL \ short 
ELSE INTER THEN ELSE NEXTW CP Q + .SYMBOL THEN 
3 AND EXEC: CALL  JMP JMP JMP ; 


: E0S \op--- | display instructions EO-EF 
DUP 2 2/S 3 AND EXEC: LOOPS IN/OUT CALLS IN/OUT ; 


: FTEST \op--- | display instructions F6,7:0 
2DISP OVER 1 AND IF WDISP ELSE BIMM THEN # 
.MREG DROP .SIZE TEST ; 


-SELF NOT -.SELF NEG . SELF MUL «SELF IMUL 
-SELF DIV .SELF IDIV -SELF REP «SELF REPNE 
.SELF LOCK «SELF HLT . SELF CMC .SELF CEC 
.SELF STC .SELF CL] .SELF STI .SELF CLD 
-SELF STD «SELF INC «SELF DEC .SELF PUSH 
: MUL/DIV \ op ext --- | secondary instructions F6,7:4-7 


.MREG NIP 3 2/S 3 AND EXEC: MUL IMUL DIV IDIV ; 


: NOT/NEG  \ op ext --- | secondary instructions F6,7:2,3 
.MREG SWAP .SIZE 3 2/S 1 AND EXEC: NOT NEG ; 


: F6-F7S \op--- | display instructions F6,7 
NEXTB DUP 3 2/S 7 AND EXEC: 
FTEST OOPS NOT/NEG NOT/NEG 
MUL/DIV MUL/DIV MUL/DIV MUL/DIV ; 


: FES \op--- {| display instructions FE 
NEXTB .MREG BYTE NIP 3 2/S 1 AND EXEC: INC DEC ; 


: FCALL/JMP \ op ext --- | display call instructions FF 
.MREG 3 2/S DUP 1 AND 
IF S#) ." FAR " ELSE %#) THEN NIP 
2/ 1 AND EXEC: JMP CALL ; 


: FPUSH \opext --- | display push instructions FF 
DUP 4 AND IF .MREG 2DROP PUSH EXIT THEN OOPS ; 


: FINC \ op ext --- | display inc/dec instructions FF 
.MREG NIP 3 2/S 1 AND EXEC: INC DEC ; 


: FFS \op--- | display instructions FF 
NEXTB DUP 4 2/S 3 AND EXEC: 
FINC FCALL/JMP FCALL/JMP FPUSH  ; 


: FOS \op--- | display instructions FO-FF 
DUP 15 AND DUP 7 AND 6 < IF NIP THEN EXEC: 
LOCK  OOPS REPNE REP HLT CMC F6-F7S F6-F7S 
CLC STC CLI STI CLD STD FES FFS ; 


: HIGHS \ op -- | op codes CO - FF displayed 
DUP 4 2/S 3 AND EXEC: COS DOS EOS FOS ; 


: CINST) \ op --- | highest Level vector table 
255 AND DUP 6 2/S 3 AND 
EXEC: LOWS MEDS HMEDS HIGHS ; 


: INST \ --- | display opcode at ip, advancing as needed 
SYMBOLIC à O= IF RELOC 2+ @ (U.) TYPE ASCII : EMIT THEN 
CP à 4 U.R # 

2 SPACES 
NEXTB (INST) OPS @ CP +! OPS OFF IM OFF ; 

: (DUMP) \ addr ct --- | dump as pointed to by reloc 

CE FORTH ] 


SPACE BOUNDS DO 1 TCa O <# # # BL HOLD #> TYPE LOOP ; 
ALSO FORTH DEFINITIONS 


: LDIS \ seg addr --- | disassemble 
2 ?ENOUGH CP ! DUP RELOC 2+ ! 


DSEGMENT = IF SYMBOLIC ON ELSE SYMBOLIC OFF THEN 
BASE à SAVEBASE ! HEX ENDDIS OFF 
BEGIN CP @ >R 
CR INST R> CP à OVER - 35 ?TAB (DUMP) 
STOP? ENDDIS à OR UNTIL 
SAVEBASE à BASE ! ; 


: DIS \ addr --- | disassemble in Forth segment 
DSEGMENT SWAP LDIS ; 


: NDIS 
\ --- | continue disassembly from previous address 
RELOC 2+ @ CP Q LDIS ; 


: IDIS \n--- | disassembie interrupt routine 
255 AND 4 * O TUCK OVER 2+ La -ROT Là LDIS ; 


HIDDEN DEFINITIONS 


: (SEE/DIS) \ cfa --- 
DUP Q OVER >BODY = 
IF CR DUP >NAME .ID 
\ Nota: compiler POLYGLOT.FTH, module 5 
\ Le cas échéant. 


EXIST? FRENCH ?\ .!! est en code machine! 
EXIST? ENGLISH ?\ ." js low level codet! 
EXIST? GERMAN ?\ ." In Maschinensprache!! 
>BODY DIS 
ELSE (CSEE)) 


THEN : 


" (SEE/DIS) IS (SEE) 


ONLY FORTH ALSO DEFINITIONS DECIMAL 
MARK EMPTY 
WARNING ON 


EOF 


Charles CURLEY est informaticien FORTH chez MAXTOR après 
avoir implémenté des systèmes FORTH sur 6502, 6809, 
LSI-11, 80x8x, 680xx pour des sociétés comme Rockwell 
International, Jet Propulsion Lab, Hughes Aircraft, 
Strand Lighting et d'autres. Il est membre du Silicon 


Valley Forth Interest Group et c'est à ce titre qu'il a 
versé dans Le domaine public ce désassembleur. 


L'adaptation que j'en ai faite pour TURBO-FORTH-83 porte 
sur des points de détail: mnémoniques sans virgule (MOV 
pour MOV,), suppression du désassemblage pas-à-pas au 
profit d'un affichage avec pauses en utilisant STOP?. 
J'ai introduit aussi Un arrêt automatique du 
désasssemblage des mots en code et Le mot NDIS qui 
permet de poursuivre Le désassemblage au delà de la 
dernière adresse désassemblée. Je me suis permis de 
supprimer l'affichage en fin de ligne des caractères 
ASCII correspondant au 'dump' de La Ligne. 


Le programme original de C. Curley comporte quelques 

bogues au niveau de l'interprétation de certaines 
instructions. Certaines ont été signalées par Bilt 
MUENCH et j'en ai découvert certaines à l'usage. J'ai 
apporté donc une dizaine de corrections (INC/DEC Breg, 
XCHGA-NOP, REP/REPNE, POP, ESC,LDS, MUL/DIV etc) mais 
j'ignore si quelqu'un a déjà eu le courage de vérifier 
de façon systématique si toutes Les instructions sont 
correctement interprétées dans tous Les modes 


d'adressage valides... 


Le programme ajoute 4 mots de syntaxe simple dans 
Le vocabulaire FORTH: 


DIS ( adr -- ) pour désassembier dans le segment 
Forth 
LDIS ( seg adr -- ) pour désassembler extra-segment 
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IDIS € Numint -- ) pour désassembler une interruption 
NDIS € -- ) reprend L'un quelconque des trois précédents 
et modifie Le comportement de SEE pour que soient 
désassemblés Les mots codés. NDIS permet de poursuivre ce 
désassemblage au delà d'une instruction de saut sur 
l'interpréteur interne, laquelle n'est pas toujours La fin 
du code d'un mot. 


Quelques remarques sur Le programme: 


Notez l'intéressant mot d'exécution indicée EXEC: : dans une 
définition, n EXEC: exécute Le n+1 ième mot après EXEC: (Le 
premier mot étant exécuté pour l'indice n=0 ). La suite ‘i 
EXEC: motO mot1...motN ;' doit obligatoirement terminer la 
définition du mot en cours. EXEC: ne dispose pas d'un 
contrôle d'intervalle de l'indice d'exécution. 


L'usage de mots qui s'affichent eux-mêmes .SELF et .MOI (en 
français dans Le texte!) provoque des homonymies. Si vous 
utilisez Le vocabulaire DISASSEMBLER, méfiez-vous des mots 
BL # XOR OUT CALL NOT WORD... J'ai évité Les homonymies sur 
AND OR et LOOP. 


IL peut être utile de récupérer Le désassemblage d'une 
portion de code dans un fichier. L'édition de ce fichier 
facilitera Le ré-assemblage par l'assembleur Forth. 


Voici La procédure à utiliser: 


\ utilitaire de redirection 
\ évite codes ANSI parasites 


INCLUDE PIP 
ATTRIBUTS OFF 


PRN TO ESSAI.DIS 
PRINTING ON 


\ redirige printer sur fichier 
\ sortie écran et imprimante 


xXX yyy LDIS \ désassembl age 
PRINTING OFF \ fin d'impression 
RESTORE \ fin de redirection 


Michel ZUPAN Juin 89 


CREATION DE LISTES DE VARIABLES 
ET DE CONSTANTES 


| 


par Ch. MOHR 


LISTING: 


PREFUNI.FTH 


dark 


AAA HE UD UNI NA DH A NE 


\* %%% TURBO - FORTH  *** * 
\ * UTILITAIRES PERMETTANT LA DESIGNATION D'UNE LISTE DE x 
\* VARIABLES OU DE CONSTANTES SOUS UN PREFIXE UNIQUE * 
AE RDA DH D III HE ER 
\ (€ echo off ) 

\ En programmant on peut être amené à désigner en en-tête 
\ une Liste importante de variables ou de constantes. Taper 
\ X fois " VARIABLE " ou “ CONSTANT " peut dans ce cas 

\ devenir fastidieux. Comme je suis paresseux, j'ai imaginé 
\ quelques mots permettant, à l'instar du PASCAL, La 

\ désignation sous un seul préfixe d'un train de variables 
\ ou de constantes, c'est à dire: 


\ 

\ VAR: désignation de variables du type VARIABLE 
\ 2VAR: désignation de variables du type 2VARIABLE 
\ CONST: désignation de constantes du type CONSTANT 


\ 2CONST: désignation de constantes du type 2CONSTANT 
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\ STR: désignation de variables chaines de caractères 
\ du type STRING du TURBO-FORTH. 


\ REMARQUES IMPORTANTES : 


\ - Les différents types doivent être désignés sur une 
\ Ligne (sans CR), Le point-virgule final (code 59) ne 
\ servant que de simple délimiteur. 

\ - L'indication de La valeur chiffrée, lorsqu'elle est 
\ requise, ne peut se faire qu'en " LITTERAL " (16 ou 
\ 32 bits selon Le cas). 


echo off 
only forth also definitions 
\ VARIABLES NUMERIQUES 


: var: 
source ascii » scan 0= swap 1- ca bl <> or 
\ verification de La présence 
abort" Absence du détimiteur ;" 
\ du délimiteur ; € ascii 59 ). 
begin source drop >in à + ca 
\ examen dans Le flot d'entrée 
\ des codes ascii à interpréter. 
case 
bl of 1>in +! true endof 
\ si code 32 se contente d'incrémenter 
\ Le compteur d'interprétation + flag vrai 
ascii ; of false endof 
\ si code 59 prépare fin de boucle 
\ en laissant un flag faux. 
ascii ( of 41 parse 2drop true endof 
\ pour pouvoir inserer des commentaires. 
variable true swap 
\ sinon création de La variable suivante 
\ dans le flot d'entrée. 


endcase 
while repeat 
\ recommence tant que flag vrai. 
T>in+! ; 


\ pour ignorer Le délimiteur final. 


: dvar! 
source ascii ; scan 0= swap 1- ca bl <> or 
abort" Absence du délimiteur ;!" 


begin source drop >in à + ca 
case 
bU of 1 >in +! true endof 
ascii ; of false endof 


ascii ( of 41 parse 2drop true endof 
2variable true swap 
endcase 
while repeat 


Voin+t! ; 
\ CONSTANTES NUMERIQUES 


: const: 
source ascii ;: scan 0= swap 1- ca bl <> or 
abort'" Absence du délimiteur ;!" 
begin source drop >in à + ca 
case 
bl of 1 >in +! true endof 
ascii ( of 41 parse 2drop true endof 
ascii ; of false endof 
bl word number drop 
constant true swap 
endcase 
while repeat 
T>int+l ; 


: 2const: 

source ascii ; scan 0= swap 1- ca bl <> or 
abort" Absence du délimiteur ;" 

begin source drop >in à + ca 


case 
bl of T>in +! true endof 
ascii ; of false endof 


ascii ( of 41 parse 2drop true endof 
bl word number 
2constant true swap 
endcase 
while  repeat 
Toin+l ; 


\ VARIABLES CHAINES DE CARACTERES. 


SET: 
source ascii ; scan 0= swap 1- ca bl <> or 
abort!' Absence du délimiteur ;" 
begin source drop >in à + ca 
case 
bl of 1 >in +! true endof 
ascii ; of false endof 
ascii ( of 41 parse 2drop true endof 
bl word number drop 
string true swap 
endcase 
while repeat 
Toin+t ; 


forth definitions decimal 
echo on 


\ EXEMPLES D'UTILISATION. 


\ VAR: XX YY 22 TT UU WW ; 
\ 2VAR: 2X ( commentaire ) 3X ( commentaire ) 4X : 
\ CONST: 100 CA 200 CB 300 CD : 


\ 2CONST: 10200. DCA 8000. DCB 3.1416 PI : 
\ STR: 40 A$ ( commentaire ) 50 B$ 100 C$ 4 D$ « 
commentaire ) ; 


\ ... et que Le FORTH soit avec vous ... 
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| CONTENU DU FORUM SAM*JEDI 


SECRETAIRE Du 09.06.89 À 19h04 

DISPONIBILITE DU MODULE 8: CONTIENT EN 90 Ko TOUT LE PACKAGE 
DE VIRGULE FLOTTANTE CORDIC (EGALEMENT DIFFUSE EN 
TELECHARGEMENT). 


DISPONIBLE AVANT LE MODULE 7, ON BOUSCULE L'ORDRE... ET EN 
VERSION ANGLAISE POUR LE MOMENT. 


PRIX: 37 FR. A COMMANDER À ASSOCIATION JEDI 
17, RUE DE LA LANCETTE 75012 PARIS 


(PAIEMENT EN TIMBRES DE PREFERENCE POUR TOUTE COMMANDE 
INFERIEURE À 70 FR, SVP) 


FORTH7 Du 09.06.89 A 21h17 
A new type of data: VALUE 


Partant du constat que Les variables sont plus souvent lues 
par @ qu'ecrites par !, certains proposent une nouvelle 
forme de variable appelee VALUE qui fonctionnerait a 
l'execution comme une constante (donc sans Le fetch à). 


En Turbo-Forth, nous avons appele ca une 'pseudo-constante! 
declaree par CONSTANT et modifiable par IS: 

2 CONSTANT DEUX 

3 IS DEUX 
Voici une implementation de VALUE dont l'avantage est de ne 
pas necessiter La definition d'une foule de mots pour 


l'affectation en notation prefixee 


: VALUE 
0 constant ; 


C <nom> -- ) 
\ comme une VARIABLE 


: (VAL) C -- adr ) 
Ra à >body R> 2+ >R :; ( run-time) 
5: VAL € <nom> -- adr ) 
state à if compile (VAL) 
else ! >body 
then ; imnediate 
VALUE TEST definit une 'valeur! TEST 
2 VAL TEST ! met 2 dans TEST 
VAL TEST OFF remet TEST a zero 
VAL TEST 1+1 incremente La valeur TEST. TEST seul 


empile directement Le contenu de La value et VAL TEST 
son adresse. 


ALORS POUR OÙ CONTRE LES VALUE 's? Ces VALUE's dechainent 
Les passions aux US: heresie non standard pour les uns, 
la fin des Litanies de à pour d'autres, hybridation 
constantes-variables contre nature où genial paradoxe 
forthien? 


Notez qu'une VALUE est plus rapide que VARIABLE s'il 
s'agit d'une valeur qu'on n'affecte 
qu'exceptionnellement. C'est bien Le sens d'une 
(pseudo- }constante. 


Qu'en pensez-vous? Si vous avez l'intention de remplacer 
toutes vos VARIABLE'S par des VALUE's je vous refilerai 
(VAL) en code... 


Du 10.06.89 À 22h01 
VALUE 
ENTIA NON SUNT MULTIPLICANDA PRAETER NECESSITATEM. 


EPICURE 


LE TYPE VALUE! S'IMPOSE-T-IL? 
SI SON INTERET EST EVIDENT SURTOUT LORSQU'IL S'AGIT DE 
VALEURS AFFECTEES EXCEPTIONNELLEMENT, LES CONSTANTES 
EXISTENT POUR CELA, ET SONT MODIFIABLES 
PAR LE PROCEDE EXCEPTIONNEL: 

! CONSTANT-NAME >BODY ! 
SI LE BUT DE CE NOUVEAU TYPE EST D'EVITER LES @ ALORS IL 
EST REMARQUABLE QUE L'ON RESSENTE QUAND MEME LE BESOIN 
D'AVOIR ACCES A L'ADRESSE DE LA DONNEE, ET DE SURCROIT 
PAR "VAL! QUI FAIT PENSER A TOUT SAUF À SON ADRESSE... 


BOUSCULER LES HABITUDES ET, CE QUI EST AUTREMENT PLUS 

GRAVE ET LOURD DE CONSEQUENCES, CHANGER LE STANDARD, 

POUR UN RESULTAT SI LEGER, NE PARAIT PAS ESSENTIEL, 
AVETE ATQUE VALETE. 


SECRETAIRE Du 12.06.89 À 14h08 
JE VIENS DE METTRE EN TELECHARGEMENT UN PREMIER PROTO 
DE L'ASSEMBLEUR F32. 


ATTENTION: TELECHARGEMENT EN BINAIRE CAR CONTIENT DES 
CARACTERES ACCENTUES. JE PLANCHE SUR SIMULATEUR F32. 


FORTH7 Du 14.06.89 À 21h16 
Assemble ce qui, poussiere, se disperse 
Lao Tseu 


Le type VALUE malgre Les critiques auxquelles il se 
prete, forth a considerer l'usage d'une syntaxe 
prefixee. 


Il ne faut pas grand chose pour changer L'assembleur 
actuel postfixe de facon a ce qu'il comprenne Les deux 
syntaxes. 


Vous pourrez bientot ecrire au choix: 
POSTFIX ES: BP SI MOV 
ou  PREFIX MOV ES: BP, SI 
ne SZ. FOUET 
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Ceux qui ont repris des fichiers MASM comprendront 


l'interet... 
D 
FORTH7 pu 14.06.89 À 21h21 
La plus grande vertu s'ignore 
Et c'est la raison de sa vertu 

encore Lao Tseu (*) 


Avez-vous lu Le Science et Vie Micro de juin 89? Surtout 
ne Ll'achetez pas! (y'a rien dedans) mais lisez seulement 
chez votre buraliste l'entrefilet sur Le FORTH page 188. 
Navrant. 


(*) Sans rire, Le Tao Te King ( 6eme s. av JC ) est le 
Livre de chevet d'un nombre incroyable de forthiens! Un peu 
fadas peut-etre ces fanas? Je vous ai 
du moins epargne La V.0. moi... 
ee —————— 
SECRETAIRE Du 15.06.89 A 08h50 

IL est effectivement interressant de pouvoir selectionner un 
assemblage en mode pre-fixe ou post-fixe. Mais il ne faut 
pas generaliser ce mecanisme en FORTH. La tentation est 
grande de programmer des fonctions POST-FIXEES ou IN-FIXEES. 
Pour exemple, l'addition pourrait tres bien etre reecrite de 
maniere a etre exploîtee ainsi: 

nl +n2 en interpretation et en compilation. 
Mais ce serait dommageable pour La compacite et les 
performances de FORTH. 


En fait, on pourrait, à force de suggestions, recreer un 
pseudo C ou PROLOG ou tout ce que vous voulez. 


Les notations particulieres (non FORTHiennes) sont à 
reserver aux extensions particulieres destinees a des 
applications specifiques. 


Et puis, La notation FORTH est bien supportee par 
POSTSCRIPT, alors que ces memes defenseurs de POSTSCRIPT 
n'ont aucune connaissance en FORTH (ceux qui gribouillent 
dans SVM par exemple... et contre qui j'ai une dent; affaire 
personnelle...). ° 


Les nouveaux FORTH 32 bits seront certainement plus simples, 
mais auront des fonctionnalites etendues: 

- fonctions virgule flottante, 

- fonctions de gestion de fichiers 

- fonctions graphiques, 

- interface de communication, 
etc... 


Pour Le moment, s'il n'existe pas de vrai FORTH 32 bits sur 
PC, c'est parce qu'une telle implementation se ferait au 
detriment des performances. Les micro-processeurs INTEL, 
par Leur technique de segmentation de La memoire, rendent ce 
probleme ardu. Sur un micro-processeur de La gamme MOTOROLA, 
une implementation de FORTH 32 bits est plus 

aisee. Mais entre MacINTOSH, ATARI, AMIGA, où tout autre 
systeme equipe d'un 68xxx, il n'y a pas deux DOS semblables. 


Un programmeur souhaitant implementer FORTH en 32 bits sur 
ce type de machines en est reduit a faire un langage minimal 
s'il ne dispose pas de toutes Les adresses du DOS et du 
systeme. Sans renier La superiorite des capacites et 
performances des systemes equipes en é8xxx, ce qui fait La 
force des systemes IBM, est: 

- ils sont globalement plus repandus, 

- La compatibilite logicielle est ascendante PC->XT->AT, 

- ils tournent pour La plupart avec MSDOS. 


Donc, au risque de decevoir ceux qui attendent une 
eventuelle mouture amelioree de TURBO-Forth, nous leur 
confirmons que La version actuelle restera encore 
exploitable dans sa forme actuelle pendant un certain temps. 


EPICURE pu 15.06.89 À 22h33 

Le ma Citre des anciens temps 

Etait subtil perspicace merveilleux et profond. 
(Lao Tseu) 
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Forth est par essence postfixe, La seule exception etant 
les chaines (pour eviter La confusion, dit Chuck Moore 
[Forth Dimensions VII11/1] et encore invite-t-il des 
suggestions pour supprimer cette entorse...). Faire du 
prefixe, comme Le secretaire le dit presque, ce sont 

voies de brigandage 

mais non pas la Voie. 

(Lao Tseu encore) 
AVETE ATQUE VALETE 


SECRETAIRE Du 16.06.89 À 16h34 

PROGRAMME DE TELESAISIE PAR MINITEL: 

IL avance tres bien. Maintenant, toutes Les donnees sont 
transferees sur IBM dans un fichier dBASE. 


Sur MINITEL, Les champs de saisie sont geres comme 
peuvent l'etre ceux de dBASE. Pour ce faire, j'ai eu 
l'idee suivante: 

5 STRING A$ 

5 STRING B$ 

5 STRING C$ 
3 CASE: VAL$ A$ B$ C$ ; 
et un mot READ demande La saisie sequentielle des 
donnees A$ B$ et C$ quand on compile READ: 

: TEST READ VALS ; 
Toute zone de saise MINITEL passe en video inverse; si 
elle est deja en video inverse, on rajoute la 
surintensite. Miam, miam... 


Maintenant, si vous ne voulez pas partager ces idees 
avec Les votres, peu importe; moi je gere une saisie 
telematique et un fichier dBASE en moins de 40 Ko. 
Essayez avec CLIPPER de faire mieux... cauchemar 
garanti! Allez, bon week-end a tous. 


FORTH7 Du 19.06.89 À 19h43 

EARLY BINDING VERSUS LATE BINDING. Les mots d'execution 
differee du Forth permettent d'expliquer tres facilement 
La difference entre Le chaînage precoce et Le chainage 
tardif, notions au coeur des Langages objets et de L'IA. 


Considerez le simple mot: 
: ([DEFERRED) € <MOT> -- ) 
STATE à IF ! >1S @ , THEN ; IMMEDIATE 


qui s'emploie dans une definition pour compiler Le mot 
DEFERred qui Le suit: 


: ... [DEFERRED] EMIT ... ; 


BINDING BINDING BINDING (air connu). Vous avez compris 
le mot? Bravo! 


[DEFERRED] EMIT va compiler non pas EMIT mais son 
vecteur tel que defini AU MOMENT DE LA COMPILATION. 
C'est ca Le ‘early binding! mon chou. Tandis que Lorsque 
vous compilez EMIT tout seul, vous faites reference 

AU MOMENT DE L'EXECUTION 
et que voila du ‘late binding' sans Le savoir, Mr 
Jourdain... 


Y'a que Forth (et moi) pour trouver des trucs si 
simples. 


DEFER GASTON. Vous allez me dire que [DEFERRED] ne sert 
a rien: compiler (EMIT) d'emblee est plus simple. À 
premiere vue, oui. 


J'ai defini ici [DEFERRED] dans un but pedagogique en 
prenant DEFER comme base connue. La dynamique du 
Forth-Oriente-Objet utilise des mots vectorises qui 
compilent directement en early binding: c'est Le concept 
de METHOD aussi novateur que l'a ete DEFER. Si ! (store) 
est une Methode, il compilera CI! WI LI $! array! etc 
selon L' OBJET reference. 


! BYE IS GASTON 


PYLA Du 22.06.89 A 09h04 

POSSEDE UN SUPER SHAREWARE (sel fmade!} POUR TELECHARGER DES 
PROGS SUR SAM*JEDI. IL EST POUR VOUS:*** GRATUITEMENT *** 
COMMANDEZ-LE SUR 3615 SER*PC, rubrique pyla soft 

À BIENTOT ET BONS TELECHARGEMENTS 


PS: IL PERMET AUSSI LA CAPTURE D'ECRANS MINITEL (sa premiere 
vocation a l'origine) 


FF32 Du 22.06.89 A 15h04 

POST-OU-PREFIXE? LA QUESTION EST COMMENT UTILISER UN LANGAGE 
PUISSANT COMME FORTH QUI SOIT PRESENTABLE COMME UN VRAI 
LANGAGE ? 


LA CONTROVERSE FAIT RAGE ENTRE LAO-TSE, GASTON ET EPICURE... 
POUR MA PART, QUE J'AIMERAIS POUVOIR COMPRENDRE LES PETITS 
MOTS DE FORTH7 SANS AVOIR BESOIN DE DESSINER LA PILE A 
CHAQUE MOT. MAIS JE NE SUIS QU'UN ETRE HUMAIN ORDINAIRE... 


ALORS JE VOUS FABRIQUE UNE MACHINE EXTRA POUR DESSINER VOS 
MOTS AVEC UNE SOURIS; ON MONTRERA AUX CURIEUX LES 1@ QUI 
SONT DESSOUS, S'ILS SONT COURAGEUX. F32 QUI VOUS VEUT DU 
BIEN. 


SECRETAIRE Du 22.06.89 A 18h22 

FORTH ET C: JE PARAITRAI PEUT ETRE IGNARE MAIS JE VIENS DE 
DECOUVRIR QUE C TRANSMET SES DONNEES ENTRE ROUTINES PAR LA 
PILE... 


ALORS PEUT-ETRE SERIT-IL POSSIBLE D'EXECUTER DU CODE COMPILE 
EN C DEPUIS FORTH. JE DIS CA COMME CA, HISTOIRE DE RIGOLER, 
POUR REMPLIR LA PAGE. 


SECRETAIRE Du 23.06.89 A 16h51 
Mon KEY MINITEL revu et corrige: 
HEX FFFF CONSTANT TIME-OUT 
VARIABLE #ESSAIS 
CODE (KEY) (€ --- c) 
TIME-OUT # AX MOV #ESSAIS # BX MOV 
AX O [BX] MOV O3FD # DX MOV 
BEGIN DX AL IN O1 # AL TEST O= 
WHILE O EBX] AX MOV AX DEC O= 
IF PUSH 
ELSE AX O [BX] MOV 
THEN 
REPEAT 
03F8 # DX MOV 
1PUSH END-CODE 


DX AL IN AH AH XOR 


Et voila, (KEY) attend qu'un caractere parvienne de La Ligne 
MINITEL sur Le port serie du PC. Si aucun caractere n'est 
recu apres 0,5 sec, (KEY) empile Le code 0, sinon, il empile 
le code du caractere recu. 


Ce programme peut egalement etre utilise dans un fichier 
.BAT: 

- remplacer Les 1PUSH par RET 

- taper apres La compilation de (KEY): 

! (KEY) 2+ HERE SAVE RSKEY.COM 

BYE 


Dans un fichier .BAT, RSKEY renvoie Le code du caractere 
recu dans AX lequel est analyse par ERRORLEVEL. 
Exemple: 


mode com1:1200 

:debut 

rskey 

if errorlevel = 0 goto debut 
echo VOUS ETES CONNECTE > comi: 
echo > com: 

echo 1..PROGRAMME TRUC > comi: 
echo 2..PROGRAMME MACHIN > comi: 
:redo 

rskey 

if errorlevel = 51 goto redo 


if errorlevel 
if errorlevel 
if errorlevel 


50 goto machin 
49 goto truc 
48 goto redo 


: machin 
copy machin.txt comi: 
goto debut sets 


Ce petit programme permet de gere Un serveur vraiment 
minimal. 


Pour l'exploiter sur site a 4800 bauds, taper sur votre 
minitel 18: 

FNCT-P-4 

FNCT-T-A (mode 80 colonnes) 
et sur Le PC: 

MODE COM1:4800 


Ouf, c'etait vraiment duri!! 


FORTH7 Du 24.06.89 À 22h41 

IL Y A MILLE FACONS D'OUBLIER ... 

FORGET oublie radicalement un mot et tous ceux qui L'ont 
suivi. 


FORBID oublie Un mot mais conserve son code pour tous 
Les mots compiles apres lui. Un exemple en est donne 
dans Le nouvel assembleur F32 pour ‘oublier l'ancien. 


Voici Le petit dernier: 


REMOVE deplace un mot dans un autre vocabulaire, HIDDEN 
par exemple. 


Utile si Le mot ne doit pas etre perdu. 


VARIABLE REMOTE \ pointe le vocabulaire de destination 
! HIDDEN IS REMOTE 
: REMOVE € <mot> --- ) 
! >link dup l>name 
2dup prior à hash 
begin 2dup à = 
not while à 
repeat 
>r a r> |! 
remote à 2+ hash EL 
2dup à swap ! 


SECRETAIRE Du 27.06.89 A 09h05 
CHANGEMENT D'ADRESSE FIG R.F.A.: 
FORTH-Gesellschaft e.Vv. 
Postfach 11 10 
D-8044 UNTERSCHLEISSHEIM 
Tel: 19-49 89-317 37 84 depuis La France 
Mailbox: 19-49 89-725 96 25 
300/1200 baud 8N1 


SECRETAIRE Du 28.06.89 À 15h42 
CA Y EST, MA SUPER APPLICATION DE TELESAISIE PAR MINITEL 
80 COLONNES CARBURE AU QUART DE TOUR: 

- DEFINITION DE CHAMPS DE SAISIE PAR TYPE DE DONNEES 
(DATE, NOMBRES, CHAINES MAJUSCULES ET CHAINES 
ORDINAIRES) 

- GESTION DE L'ECRAN MINITEL 1B EN MODE PLEIN ECRAN 

- LORS DE SAISIES EN SERIE, POSSIBILITE DE RETOUR AU 
CHAMP PRECEDENT COMME AVEC LE READ DE dBASE 

- TRANSFERT DES DONNEES DANS UN FICHIER dBASE 
DEMO SUR VOTRE MINITEL 1B EN APPELANT AUX HEURES DE 


BUREAU AU 1-49856315 LES LUNDI, MARDI, JEUDI ET 
VENDREDI. 
CETTE APPLICATION DE  TELESAISIE DE DONNEES EST 


OPERATIONNELLE DANS LE CADRE DES ACTIVITES ?GENIE CIVIL, 
ETUDE DES SOLS! A FRANCE TELECOMM. 


LE CHOIX DE FORTH À ETE BENEFIQUE SUR LE PLAN RAPIDITE 
DE DEVELOPPEMENT. EN EFFET, UNE EQUIPE C ESSAIE 
VAINEMENT DE REFAIRE LE PROGRAMME, ET MALGRE MON AIDE, 
PATAUGE JOYEUSEMENT... 


M°C2 Pure T LIKI 


IF 


A9 


20 


UNE VERSION JEDI DES PRINCIPALES ROUTINES SERA REALISEE ET 
MISE A DISPOSITION DES ADHERENTS JEDI DANS UN PROCHAIN 
MODULE ET EN TELECHARGEMENT. A+ 


a —_— ie ——————_—_————————“—————— 


FORTH7 Du 02.07.89 A 19h30 
A QUOI PEUT BIEN SERVIR CE MOT ? 


5: STRUCTURE 
CREATE , 
DOES> à CREATE DUP , ALLOT 
DOES> 2+ ; 


Deux CREATE et deux DOES> dans un meme mot? Serait-ce: 


- Un mot definissant des mots qui se definissent eux-memes 
- Un mot definissant des matrices a deux dimensions 

- Un definisseur de mots de definitions 

- Un mot de definitions a double sens 

JEDI! POUR LA PREMIERE BONNE REPONSE 


rm 


SECRETAIRE Du 03.07.89 A 09h24 
DEUX CREATE ET DEUX DOES, tres drole.. Et plus surprenant 
est l'execution de STRUCTURE quand on fait: 

DEBUG STRUCTURE 

10 STRUCTURE MACHIN 

MACHIN CHOSE 


Pourtant, quand on debugue seulement STRUCTURE, CHOSE ne 
devrait pas se mettre en execution de la partie DOES> de 
MACHIN, logiquement... 


ENCORE PLUS CURIEUX EST LE PROBLEME suivant: 
5: MANIPULATION 

CREATE , 

DOES> à 

DOES> à 2+ : 


Comment Va fonctionner Le mot defini par n MANIPULATION 
<mot>? Genetique, mon cher Watson, genetique... 


ET MAINTENANT SANS CREATE, UNIQUEMENT AVEC DOES>, voici La 
bete definition: 


: BEBETE ( n ---) 


Si vous vous tapez La tete sur Le mur, mettez au moins un 
casque... 


FLIPO Du 03.07.89 A 12h19 
quelqu'un peut-il m'indiquer ou je peux trouver le format 
des fichiers texte : 

- DCA (Document Conversion Architecture) d'IBM 

- RTF (Rich Text Format) de Microsoft 


Je souhaite realiser un programme de conversion des fichiers 
textes ecrits sur ATARI avec l'Le Redacteur' par ex. en 
fichiers utilisables par un traitemt. de texte sur PC ou MAC 
tel que WORD, ceci en gardant au maximum Les attributs du 
texte initial (soulignement, italique tabulations etc..), Le 
transfert en code ASCII ne me suffit donc pas ! Ce type de 
conversion passe par Un codage intermediaire en DCA ou mieux 
RTF. 


SECRETAIRE Du 03.07.89 A 17h16 
REPONSE A FLIPO: Le mieux est de demander ces renseignements 
directement a La Ste MICROSOFT: 
MICROSOFT 12, ave Quebec 
LES ULLIS ESSONNE 
tel: 1-69.86.10.20 pour Le support technique. 


Pour mon probleme de codage des images de type .PCX, ils 
m'ont repondu avec diligence et efficacite. Encore tout mes 
remerciements a Leurs techniciens... 
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FF32 Du 03.07.89 A 17h41 

JE LANCE AUJOURD'HUI UN MAILING AVEC UNE SPECIFICATION 
DU SIMULATEUR F32, PRONONCER S32. SI VOUS ETES 
INTERESSES PAR UNE COPIE, DEPOSEZ VOTRE ADRESSE POSTALE 
A FF32. 
FORTH7 Du 04.07.89 A 21h05 

\PAUSE\ 

Vous ecrivez Le big stuff du siecle en Turbo-Forth, 
disons un simulateur F32, et vous desirez placer dans 
votre mega-source quelques points d'arrets provisoires, 
histoire de controler au radar que La compilation de La 
bete ne franchit pas La Ligne jaune. 


Vous allez placer par-ci par-la Le mot 
\PAUSE\ 
dont voici Le cahier des charges: 

- a l'execution de ce mot l'interpretation du fichier 
en cours est suspendue, La main est rendue au clavier 
pour permettre d'entrer autant de commandes forth 
desirees: 


words .S see <mot> echo on etc etc. 
L'entree d'une commande vide par Un simple <CR> fait 
reprendre aussitot La suite de La compilation du 


fichier. Une commande erronee arrete tout. 


EDIT va dans 
\PAUSE\. 


le fichier au niveau de la derniere 


* voulez pas essayer 
de l'inventer vous-meme 
avant de vous jeter sur <SUITE> ? 


80 STRING PAUSE$ 


3 \PAUSE\ ( --- ) 
STATE à 0= IF 
WHERE 
BEGIN CR." 7? " 
PAUSES INPUTS 
PAUSES NIP WHILE 
PAUSES $EXECUTE 
REPEAT “ 
THEN ; IMMÉDIATE 
\ plus long a commenter qu'a ecrire ! 


FF32 Du 06.07.89 À 18h41 

N'EXAGERONS TUT DE MEME PAS LE BIG STUFF DE S32... 

A PART CA, A QUOI SERT FINALEMENT STRUCTURE? RIEN 
COMPRIS... UN IGNARE, MAIS CURIEUX. 


FORTH7 Du 07.07.89 À 13h42 
SUPERSTRUCTURES: STRUCTURE ne semble avoir inspire que 
notre secretaire, pris que vous etes dans La moîteur 
estivale... 


IL s'agit d'un mot de definitions de mots de 
definitions, sous une forme ici trop simple se 
contentant de reserver pour chaque type un espace 
memoire en octets: 
2 STRUCTURE VAR 
& STRUCTURE LONG 
1024 STRUCTURE BLOC 


VAR EUSE 
BLOC NOTE 


VAR ECH 
BLOC HAUS 


LONG DRINK 


STRUCTURE n'est pas qu'une curiosite: si jamais votre 
application a besoin de tant de structures! qu'un mot 
de ce genre (create does> create does>) est rentable, 
alors vous n'echapperez pas aux langages objets. Vous 
venez de toucher aux notions de classes et d'heritage: 
les objets ne sont pas Loin ... 


Le hic c'est qu'a moins de programmes monstrueux, ce 
genre de truc reste pure curiosite d'ecole si on y 


reflechit bien. Le Forth-Objet existe mais on ne sait 
toujours pas quoi faire avec! Ceci est valable pour tous Les 
LOO: tout Le monde ne developpe pas un hypertalk. 


SECRETAIRE Du 10.07.89 À 08h47 
Puisque L'on en est aux series de devinettes, en voici une 
autre: 
VARIABLE #RP 
CODE -11! 
-2 # AX MOV #RP #) BX MOV 
AX O [BX] ADD NEXT END-CODE 
: ESSAI ( ---) 
RPQ #RP ! 10 0 
DO CR I . 
KEY ASCII R = 
IF -11! THEN 
LOCP ; 


Maintenant Lancez ESSAI et avant que 9 ne s'affiche, appuyez 
sur la touche R. Marrant, non? 


SECRETAIRE Du 11.07.89 A 12h45 
ENCORE UN NOUVEAU SERVEUR FORTH EN EUrope, FORTH-Mailbox de 
MUNICH (ÇCRFA), 1200/1200 ou 300/300 8 bauds, peut etre 
interroge en composant Le: 

19-49 89/7259625 
1 taxe toutes Les 11 secondes en journee (contre 1 taxe/12 


sec en interurbain...), tarif reduit La nuit. Nous ne 
l'avons pas encore essaye... Peut-etre des trucs 
interessants. 


A ce jour, SAM*JEDI reste Le serveur FORTH assumant Le plus 
fort trafic parmis tous Les serveurs FORTH connus a ce jour: 
EAST-COAST FORTH RBBS (USA), FORTH-Mailbox HAMBURG et 
FORTH-Maïilbox MUNCHEN. 


D'ailleurs, SAM*JEDI sera prochainement bilingue. Dans peu 
de temps, nous activerons Le choix 8 du menu: a partir de ce 
moment, si votre pseudo est identifie comme connectant en 
Langue anglaise, toutes les pages de presentation seront 
visualisees en anglais. 


De prochains accords entre Les reseaux BTX et TELETEL 
donneront acces aux connectants allemands transitant par 
BTX de disposer des services du 3615, donc de consulter 
SAM*JEDI. À plus long terme, une passerrelle sera egalement 
cree entre le reseau PRESTEL (GB) et TELETEL. 

l'europe du FORTH avant 


Alors JEDI a decide de faire 


l'ouverture totale des frontieres. 


Nous esperons que ces accords aboutis|sent rapidement. 
Potentiellement, JEDI pourrait deservir une communaute 
de programmeurs FORTH aussi importante, sinon plus que 
celle existant aux USA. 


Les programmes crees et diffuses par nos adherents n'ont 
rien a envier a ceux diffuses aux USA dans FORTH 
DIMENSION. Ils sont meme meilleurs. Et l'idee d'une 
communaute de programmeurs FORTH  specifiquement 
europeenne n'est pas utopique, car actuellement deja, 
des programmes ecrits POUR TURBO-FORTH sont diffuses par 
des etrangers dans des revues de programmation: VIERTE 
DIMENSION (RFA) et COMPUSER (NL) notamment, avant d'etre 
diffuses dans JEDI. 


De notre cote, nous reservons une partie de La revue a 
des articles en VERSION ORIGINALE (anglais 80%, allemand 
20%) afin de renforcer nos echanges et nos contacts avec 
Les pratiquants FORTH non francophones. 


FORTHFOUR Du 12.07.89 À 18h54 

J'AI QQ CROSS ASSEMBLEER MOTOROLA SUR PC. DIFFUSE PAR 
MOTOROLA AU TRAVERS DU RESEAU DE DISTRIBUTION POUR 
POUSSER À LA CONSOMMATION. DONC: 

AS1 POUR 6801 
AS4 POUR 6804 
AS5 POUR 6805 
ASS POUR 6809 
ASTIPOUR 68Hc11 
ET X68000 POUR 
ILS SONT SIMPLES MAIS POUR UNE MERE APPROCHE, C'EST 
SUFFISANT. ILS ONT UN PETIT MONOCHIP AVEC 3K DE ROM EN 
OTP, DRIVER DE LED POUR UNE TRENTAINE DE FRANCS, CA VOUS 
INSPIRE? 


SECRETAIRE Du 12.07.89 A 19h03 

REPONSE A FORTHFOUR: 

ON EST INTERESSE PAR CROSS ASSEMBLER. POSSIBILITE 
D'APPLICATIONS DANS LE DOMAINE INDUSTRIEL ET 
AUTOMATISMES DE CES PRODUITS. 

ER 
FORTH7 Du 12.07.89 A 22h43 

TOUT MAÏS PAS DE GOTO! 

Puisqu'on est sur Le meilleur serveur FORTH, m'en vais 
vous soumettre Un problemé philosophique avant de partir 
pour reprendre quelques forth... 


Vous savez que FORTH est Un langage interprete et que 
nous disposons deja de directives interpretees de 
compilation. Pour les besoins d'une application 
hard-dependante, j'ai re-invente Une horreur: GOTO 
(appelons-le ainsi comme en Basic ou mieux comme dans 
les fichiers batch du dos). Ca donne: 

EXIST? COLOR ?\ GOTO PALETTE ou 

KEY UPC ASCII O = ?\ GOTO OUIDA 


Vous avez compris: il n'est vraiment pas difficile 
d'ajouter aux directives actuelles un mot imnediat qui 
fait sauter l'interpreteur a Un label dans Le fichier 
source. D'aucuns trouveront ca assez pratique pour Les 
compilations conditionnelles ou personnalisees. 


Ouais, mais avez-vous deja relu un programme truffe de 
GOTO? L'enfer de La programmation-spaghetti! Tout mais 
plus cal J'ai mis mon GOTO au frigo. 


Je vous laïsse juge et pars souffler un peu. Bye bye 


Du 13.07.89 À 10h24 
JE CROIS QU'IL EN A BIEN 
QUI VEUT 


FF32 
BONNES VACANCES A FORTH7; 
BESOIN... C'EST PAS LA BOUSCULADE POUR S32. 
PLUS D'INFOS? SINON BON SOLEIL A TOUS. 


Du 14.07.89 À 21h05 
GOTO OH POTO 
Tout a fait d'accord avec FORTH7. Au frigo, qu'il Les 
met? Je n'encombre pas Le mien de choses aussi 


inavouables. 
SEEN N°SZ. TOILLET A498$ 


EPICURE 


24 


22 


FF32 Du 15.07.89 A 18h00 
F32 CHIP DEVRAIT NORMALEMENT SE FAIRE COMME SUIT: 
OCTOBRE 89 DEBUT ETUDE DU SILICIUM 
TAPE-OUT EN JUIN 90 
CHIPS PROTOS EN SEPTEMBRE/OCT 90 
ESSAI SUR CARTES PC(OU PC-AT) DEC 90 
VALIDATION PRINTEMPS 91 
.-.ON A LE TEMPS ? 


PAS VRAIMENT. LE SIMULATEUR DOIT ETRE OPERATIONNEL AU PLUS 
TARD DECEMBRE 89 POUR GUIDER LES METTEURS EN SILICIUM. 


DE PLUS IL NOUS PERMET DE CHIADER L'ARCHITECTURE EN ESSAYANT 
DIVERS CAS. ENFIN CE SERA L'OUTIL DE PRESENTATION DU CHIP 
SANS ATTENDRE LA MATERIALISATION DE CELUI-CI. JEDI PUBLIERA 
BIENTOT UN COMMENTAIRE DETAILLANT L'IMPLEMENTATION DE S32 
POUR EN FAIRE CET OUTIL DE TRAVAIL AUSSI SOUPLE ET CLAIR 
QUE POSSIBLE. UN DE SES BUTS EST DE NE PAS NECESSITER 
L'EXPERTISE EN FORTH POUR SA MANIPULATION. A PLUS TARD... 
GT  — 
LAMBERTPH Du 18.07.89 À 11h59 

L'UN DE NOUS A-T-IL UN METAGENERATEUR SUR ATARI? 

TT  — — 
SECRETAIRE pu 18.07.89 À 16h40 

REPONSE A PHLAMBERT: Si je ne me trompe pas, il y a un meta- 
generateur FORTH avec VolksFORTH ATARI. En tout cas, Les 
sources sont dans Les disquettes. Salutations. 
ET — 
FF32 Du 18.07.89 A 18h10 

GOTO OR NOT GOTO? QUESTION PERTINENTE...EN 1970. MAINTENANT, 
IL SERAIT TEMPS D'ELEVER LE DEBAT: LE MOT EST GRANULARITE. 


LANGAGE A GRAIN FIN=COURSE VERS LA PREHISTOIRE. 


GROS GRAIN(OBJETS)=PRODUCTIVITE PAR LA REUTILISATION DU 
CODE. =AUSSI SECURITE DES APPLICATIONS. 


QUE FAIT-ON AVEC LE FORTH POUR ATTAQUER CE PROBLEME? SI L'ON 
SE CONTENTE DE DIRE ON PEUT TOUT FAIRE EN GRAIN FIN, LE 
LANGAGE EST VOUE A RESTER ENTRE LES MAINS D'UNE POIGNEE 
D'ARTISTE. MAIS AU FAIT, N'EST-CE PAS SON TENDRE AVANTAGE? 
POUR MA PART, JE TROUVERAI CELA NAVRANT. AVIS PERSONNEL, 
BIEN SUR. 
re ———— 2 —_—— 
SECRETAIRE Du 21.07.89 À 18h41 
SI VOUS NE SAVEZ TOUJOURS PAS POURQUOI NOTRE ASSOCIATION 
S'APPELLE JEDI, NE MANQUEZ PAS LE MARDI 25 JUILLET À 20H35 
SUR A2, LE FILM DE G.LUCAS: 

LA GUERRE DES ETOILES 
(BIENTOT UN CULTE). LES MAQUETTES SONT ANIMEES PAR UN 
ORDINATEUR PROGRAMME EN... FORTH 


C'EST LA PREMIERE FOIS QUE L'ILLUSION EST DONNÉE PAR LE 
SUJET DE SE MOUVOIR EN MEME TEMPS QUE LE DECOR. AVANT ON NE 
FAISAIT QUE DES PLANS FIXES DANS LES SCENES TRUQUEES. 


ALLEZ, BON FILM, ET: ‘Que Le FORTH soit avec vous!" 


JACCOMARD Du 23.07.89 A 11h49 

1 Grand merci a JLUC pour sa reponse a ma question de JEDI 
#33. Rien trouve en 2 ans. La patience est recompensee. 

2 JLUC demande (18/02) un turbo.exe. J'ai ecrit un F83.ASM 
pour MASM V.5. Noyau reduit env. 14K, surtout pour charger 
drectmt des fich. binaires. Editeur, debogueur, assembler 
charges selon besoin en qq secondes. Interesse? Phone 98-73 
70 81. 


FF32 Du 23.07.89 A 19h49 

C'EST VRAI QUE F32/S32 EST DIFFICILE A EXPLIQUER. BIENTOT 
PLUS D'EXPLIC+SCHEMA BLOC DANS JEDI. 

EN ATTENDANT J'IRAI VOIR PERSONNELLEMENT QUELQUES-UNS POUR 
FAIRE PASSER LE TOPO DE VIVE VOIX. ILS M'AIDERONT PEUT-ETRE 
À CLARIFIER LE BEURRE. DESESPOIR, JAMAIS! 


SECRETAIRE Du 24.07.89 A 11h05 
L'elaboration d'un simulateur F32 est une entreprise assez 
hardie: 

- modifications profondes du meta-generateur de 
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TURBO-Forth. 

- creation d'un source F32 compilable par ce meme 
meta-generateur 

: definition du simulateur a 
caracteristiques precedentes. 


partir des 


Sur Le premier point, il faut nottament compiler toutes 
Les valeurs Literales en format MOTOROLA. Pour 
precision, en format MOTOROLA, Les paires d'octets sont 
dans L'ordre OhOl dans un mot 16 bits, alors qu'ils sont 
dans L'ordre OLOh en INTEL; La transformation se fait en 
utilisant le mot FLIP: 


TRUE CONSTANT MOTOROLA IMMEDIATE 
5: IM Con --- n2) 
[COMPILE] MOTOROLA IF FLIP THEN ; 


et dans chaque definition utilisant Le mot C, (version 
ASSEMBLER) Le faire preceder de 1>M. 


IL faut aussi generer Un code sans en-tete et 
relogeable. Le code FORTH F32 est un code !CHAINAGE 
DIRECT!': 

CODE truc ... NEXT END-CODE 


en TF83, compile un en-tete 'CHAINAGE INDIRECT', c'est 
a dire que Le cfa indique l'adresse d'execution. En F32, 
Le meme en-tete a un cfa contenant l'instruction call 
pointant sur La zone parametrique. Ensuite, La 
compilation de truc dans une definition de type 
deux-points compile Le contenu du cfa de truc et non son 
cfa! 


: MACHIN TRUC ; 
devient automatiquement en F32: 
CODE machin call, truc NEXT END-CODE 


NEXT de F32 est simplement un ret, il n'y a donc plus de 
difference en F32 entre definition CODE et definition : 
si ce n'est au niveau de La methode de compilation. 


Le simulateur F32 sera veritablement capable d'executer 
du code F32. En fonction des caracteristiques du 
processeur F32 (non encore bouclees à ce jour), Le code 
F32 sera assez eloîgne du code FORTH tel que vous le 
pratiquez: 


C! store 8 bits 
W! store 16 bits 
| store 32 bits 


variable 16 bits 
variable 32 bits 


WVARIABLE 
VARIABLE 


ca fetch 8 bits 
Wa fetch 16 bits 
4  fetch 32 bits 


A La compilation, Les valeurs literales sont de trois 


grandeurs: 
8 bits  -128..+127 
16 bits -32768..+32767 


32 bits autres entiers > 16 bits signes 

La distinction est faite automatiquement au moment de La 
compilation. Toute valeur Literale est precedee d'un 
code: 

clit, Literal 8 bits 

1 octet code, 1 octet valeur 
Literal 16 bits 

1 octet code, 2 octets valeur 
literal 32 bits 

1 octet code, 4 octets valeur 


mlit, 


dit, 


Toute valeur 8, 16 ou 32 bits exprimee sous forme Literale 
en memoire est convertie en valeur 32 bits signee dans le 
registre T. Le contenu precedent de T est transfere dans N 
Le cas echeant. Le contenu de N passe dans la troisieme 
position de pile Le cas echant. Exemple: 


: SOMME 10 -3 + ; 
devient apres compilation F32, en code: 
CODE SOMME 


clit, 10 cliît, -3 +, 
END -CODE 


ret, 


Bien entendu, c'est La definition en langage evolue que vous 
aurez ecrite. 


SECRETAIRE DU 24.07.89 A 13h34 
LISTE DES SERVEURS FORTH EXISTANTS: protocole ASCII 
300/1200/2400 bds, huit bits, sans parite, 1 bit stop aux 
USA: 

GEnie 800-638-9636 (19-1) code FORTH 

BIX (ByteNet) 800-227-2983 pour info, code BIX via TymeNet 
puis jforth 

COMPUSERVE 800-848-8990 pour info, FORTH où CLM 

UNIX BBS: 415-332-6106 (19-1) 

415-753-5265 (19-1) 

East Coast Board Forth: 703-442-8695 

British Columbia Forth Board: 604-434-5886 

Real Time Control Forth Board: 303-278-0364 
(Liste mise a jour en mars 1989) 
——— 
LAMBERTPH DU 24.07.89 A 22h09 
OU LES ATHENIENS S'ATTEIGNIRENT: MA QUESTION SUR LE 
METAGENERATEUR SUR ATARI VIENT DE LA NECESSITE DE NETTOYER 
UN FORTH PLEIN D'ASTUCES MAIS UN PEU BROUILLON DU SAN 
LEANDRO COMPUTER CLUB. LA VERSION 32 BITS EST EN CODE 
DIRECT, LES OCTETS DANS LE BON ORDRE PUISQU'ON EST SUR 
MOTOROLA.. CELA NE RESSEMBLE-T-IL. PAS AUX CARACTERISTIQUES 
DE F32? 


LE METAGENERATEUR LIVRE AVEC EST INCOMPLET, QUAND A LE 
COMPLETER CELA DEMANDE UNE COMPREHENSION DU SUJET POUR LE 
MOMENT HORS DE MES CONNAISSANCES. AMITIES 

PS N'AYANT PAS DE GENERATEUR AVEC LE VOLKSFORTH, TOUTE IDEE 
OU PROPOSITION SERA ETUDIEE. 


SECRETAIRE Du 25.07.89 À 13h27 

LE PROBLEME DE L'ORDRE DES OCTETS EST independant du 
processeur utilise. En principe, on optimise le code par 
rapport au micro-processeur utilise. Ca ne devient important 
que lors d'un DUMP ou toute autre operation d'acces sur 
l'espace memoire qui n'est pas definie. Le systeme de codage 
INTEL est exploite sur Les systemes equipes des muP 
suivants: 8080 Z80 8088 8086 80286-386. Le muP HARRIS RTX 
2000 exploite indifferemment Les modes INTEL ou MOTOROLA. Le 
systeme de codage memoire MOTOROLA est exploite par 6502 
6800 6809 68000 etc... ainsi que AM2900 et Les TRANSPUTER 
INMOS T800. 


En meta-generation, Les mots sensibles a modifier sur META 
de TURBO-Forth pour metagenere du code conforme au mode 
MOTOROLA sont essentiellement !-T T7. 


En chaïnage direct, il faut toujours une structure de type: 


nfa lfa cfa pfa si on compile avec en-tete 
cfa pfa si on compile sans en-tete 


En L'absence d'un cfa approprie, l'interpreteur interne ne 
peut Se repporter aux parties execution des mots ayant un 
type different des mots CODE. En conservant une structure 
homogene, on evite de gerer trois piles: 

- pile retour systeme 

- pile retour FORTH 

- pile donnes FORTH 

et on fait partager Les deux premieres piles par FORTH. 


Sur certains muP, Les registres de pointeurs de pile 
sont modifiables a volonte, permettant de basculer d'une 
pile a l'autre, ce qui n'est pas Le cas des 

Systemes a base INTEL. 


Sur INTEL, Les seules operations incrementant ou 
decrementant implicitement Le pointeur de pile sont PUSH 
et POP. 


Sur MOTOROLA diverses instructions disposent 
d'operations avec pre-decrementations simple et double 
ou post-incrementation simple et double. La gestion de 
piles auxiliaires en est facilitee. 
En  F32, il deux modes 
envisageables: 
- adressage immediat ( clit, wlit, 
dlit, rp@, sp@, rpl, spl, ...) 
- adressage inherent ( dup, drop, 
Swap, +, ...) 
Un acces en mode adressage indirect est defini par une 
suite de codes: 
dlit, xxxxxx 4, @, 
XXXXXX etant Une adresse servant d'index 


n'y a que d'adressage 


Un papier detaillant ces mecanismes sera diffuse aux 
participants du projet F32. 


FLIPO Du 25.07.89 À 19h11 

FORTH-32BITS SUR ATARI: ENFIN 11! 

BRADLEY FORTHWARE P.0. Box 4444 

Mountain View, CA 94040 
diffuse en "shareware" Un forth 32-bits pour ATARI, dont 
des variantes sont disponibles pour MAC (512ko au moins 
a 11X) pour stations SUN, systemes 68020 SOUSUNIX... Les 
fichiers sont ASCII, commeTURBO FORTH, pas de blocs. 


Je commence à peine à Le prendre en main; Le produit me 
semble tres interessant. Fin de La Limitation a 64k, 
quel pied! Je suis autorise a vous donner gratuitement 
pour essai Le “Working disk". Pour Le recevoir m'envoyer 
une disquette SFet une enveloppe timbree a 3,70 Frs, 
portant votre adresse. La mienne: 
Daniel FLIPO 1 bis rue St-Jacques 59800 LILLE. 

Si Le produit vous plait vous pourrez Le commander (avec 
doc de 200 pages tres complete) pour 50 US$ (# 350 Frs). 
Le source du noyau +  metacompilateur coute 50$ en 
plus, licence develt incluse. L'interface GEM CAES+VDI, 
macros pourfenetres etc..) coute 25$. 


La version MAC coute aussi 50$, La Version SUN 150$ 
(Source compris). Paiement: Cheque FRANCAIS en $, ou 
virement bancaire, NO CREDIT CARD. Je trouve que Le 
travail vaut largement ces prix, je suis POUR le 
developpement du “shareware!"!, je ne cederai donc RIEN 
D'AUTRE que Le "working disk". SORRYI! Si vous commandez 


mentionnez JEDI (il faut bien se faire connaitre 
la-bas!). 
L'auteur de ce FORTH cherche aussi a faire une 


metacompilation automatique des seuls mots utiles d'une 
application, mais a abandonne... Michel  ZUPAN 
releve-ra-t-il Le gant lorsqu'il sera bien repose a son 
retour de Vacances??? ALLEZ JEDI! 


FF32 Du 26.07.89 A 19h41 

FAUT-IL CONNAITRE LE TEXTE AVANT D'ECRIRE UN EDITEUR DE 
TEXTE? FAUT-IL CONNAITRE LA STRUCTURE DU F32 AVANT 
D'ECRIRE LE MONITEUR DE SIMU? JE M'INTERROGE... 


ET SI JE DONNE UNE STRUCTURE, ET QU'IL FAUT LA FAIRE 
EVOLUER; QUEL POURCENTAGE FAUDRA-T'IL REECRIRE? 99%? 


NON... HELP ME JEDI! JE SENS UN GRAND BOULEVERSEMENT DU 
FORTH... 
SECRETAIRE Du 27.07.89 À 11h07 


REPONSE À FF32: Un outil est toujours adapte a la 
matiere a traiter: meche a bois, meche a beton, meche 
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acier, meche de 8, 10, 12,... perceuse a main, electrique, 
autonome, a percussion... 


IL en sera de meme pour le simulateur F32; comme nous 
n'avons pas l'habitude de travailler en comite avec 
elaboration d'un cahier des charges (dixit METHODE 
MERISE...) a respecter, car nous ne savons pas ou nous 
mettons Les pieds, La solution dite "Essais/erreurs" suivie 
du cycle "“Correction/amelioration" me semble la plus 
efficace. 


Rappel a FF32 et information pour les autres: c'est [La 
premiere fois dans l'histoire de La micro-informatique que 
tous Les outils de developpement d'un processeur soient 
diffuses avant sa fabrication; de meme diffuserons-nous 
toutes les caracteristiques de F32. 


Cette demarche est un pari: 

- pari sur l'outil telematique; vous participez en donnant 
votre avis: vous telechargez L'outil de developpement. 

- pari sur l'interactivite; fini Le petit comite; on 


| 1 Vous ouvrir une BAL-JEI | 


_ 


è Ecrire un message 


| 
Lire votre bal | 
| 


| 3 
3 Read your post 
& Lire Le forum 
4 Read the forum 
5 Consulter l'annuaire | 
| 5 Consult the directory 
6 Relire anciens msgs Forum 
| 6 Reread past Forum msgs 
7 TELECHARGEMENT 
7 TELECHARGING 
8 Sélection type terminal 
| 8 Selection of terminal type 
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You open a “post box! 


è Write a message 


Tapez votre choix N . + ENVOI | 
Utilisation de SAM*JEDI GUIDE [Type your choice N 
Utilisation of SAM*JEDI G 


rassemble Les competences Les plus disparates (esperons 
que ca ne devienne pas La tour de BABEL...) 


Tres bientot je met en telechargement L'assembleur F32 
modifie. A+. 


FF32 Du 27.07.89 A 18h14 

PAS QUE JE RESISTE A EMETTRE DES PLANS MAIS JE TIENS A 
SIGNALER QU'IL Y A UN QUIPROQUO, A MON AVIS, SUR CE QUE 
L'ON ENTEND PAR SIMULATEUR F32. IL ME SEMBLE QUE MARC 
PARLE D'UNE MACHINE VIRTUELLE 32 BITS EXECUTANT UN 
ASSEMBLEUR AD-HOC. 

JE DECRIS UN MONITEUR QUI, AU NIVEAU LE PLUS SIMPLE, 
ACTIVE CE TYPE DE COMPORTEMENT. MAIS C'EST ACCESSOIRE 
POUR LE MOMENT, ET C'EST LA STRUCTURE DUDIT MONITEUR QUE 
JE DECRIVAIS DANS MON MAIL DU DEBUT DU MOIS. 


L'AVIS DES DESTINATAIRES ME SERAIT PRECIEUX, VOIR QUI A 


SAISI QUOI. FEEDBACK, PLEASE! QUI VEUT + DE PRECISIONS? 
DEMANDEZ COMMUNIQUEZ... 
| | 


LE PREMIER 


“SERVEUR: FORTH 


EN ÉUROPE : 


Bienvenue sur SAM * JEDI 
Welcome to SAM * JEDI d 


| 
| 
| 
| 
| 
| 
| 
| 
| 
| 


+ 


